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FOREWORD 


The  research  described  in  this  report  was  prepared  by  Honeywell  Inc., 
Minneapolis,  Minnesota  55413,  under  Air  Force  Contract  F3361  5-75-C-3046. 
It  was  initiated  under  the  AFFDL  task  number  82190221,  "Optimal  Control 
of  Flexible  Aircraft,  "  project  number  8219  "Stability  and  Control  of  Aero¬ 
space  Vehicles.  "  This  work  was  directed  by  the  Control  Criteria  Branch 
(FGC),  Flight  Control  Division  of  the  Air  Force  Flight  Dynamics  Laboratory 
and  was  administered  by  Mr.  Charles  R.  Stockdale  of  the  Control  Criteria 
Branch.  Special  thanks  to  Mr.  Robert  C.  Schwanz  of  FGC  and  Mr.  Gary 
Grimes  of  ASD/ADDP  for  their  continued  support  toward  this  contract. 

The  technical  work  reported  in  this  volume  was  conducted  by  the  Research 
Department  at  the  Systems  and  Research  Center  of  Honeywell  Inc. 

Dr.  A.  F.  Konar  was  the  Honeywell  Program  Manager  and  the  principal 
investigator  on  this  contract.  He  was  assisted  by  Mr.  C.  R.  Stone, 

Dr.  J.  K.  Mahesh,  and  Miss  M.  Hank.  This  report  covers  w'ork  from 
April  1975  to  April  1976. 


The  work  under  this  contract  was  reported  in  three  volumes  entitled, 
"Active  Control  Synthesis  for  Flexible  Vehicles." 
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Volume  II.  KONPACT  Program  Listing 
Volume  m.  KONPACT  Users  Manual 
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SECTION  I 


INTRODUCTION 


The  general  objective  of  this  program  is  to  develop  techniques  and  tools 
necessary  for  rapid  design  of  an  active  control  system  for  aircraft  with 
lightly  damped  structural  modes.  The  synthesis  techniques  provided  here 
are  aimed  at  reducing  the  engineering  man-hours  presently  required 
for  flight  control  system  design  thus  effecting  a  cost  reduction.  Improvements 
in  the  fatigue  life,  ride  qualities,  and/or  handling  qualities  of  military 
aircraft  are  sought  by  controlling  the  lightly  damped  modes  thus  improving 
mission  performance. 

The  present  scope  of  this  program  is  to  develop  programs  to  interface 
the  level  2.01.00  FLEXSTAB  computer  program  system  with  existing 
Air  Force-owned  optimal  control  computer  programs.  These  programs 
represent  advanced  computational  techniques  required  to  perform  quantita¬ 
tive  analysis  of  multi-surface  control  systems.  The  resulting  interface 
program  system  is  called  "KONPACT  -  Computer  Programs  for  Active 
Control  Technology.  "  KONPACT  provides  the  capability  to  model,  synthesize, 
analyze,  and  design  automatic  control  systems  by  efficiently  working  together 
with- FLEXSTAB.  It  can  also  be  used  as  a  stand-alone  program. 

The  work  performed  under  this  contract  is  reported  in  three  volumes: 

Volume  I.  KONPACT  Theoretical  Description  and  Demonstration 

Volume  II.  KONPACT  Program  Listing 

Volume  III.  KONPACT  Users  Manual 


This  document  reports  the  program  listings  of  KONPACT.  Complete 
documentation  of  KONPACT  is  beyond  the  scope  of  this  contract. 

Section  n  presents  a  brief  description  of  KONPACT  programs.  The 
variable  dimensioning  technique  for  efficient  data  storage  and  memory 
allocation  is  discussed  here.  This  approach  is  used  throughout 
KONPACT-1. 

The  Modeling  Program  (KONPACT-1)  is  described  in  Section  HI.  The 
Design  Program  (KONPACT-2)  is  described  in  Section  IV.  The  appendix 
contains  a  description  of  the  precompiler  program  for  KONPACT-1. 

The  analytical  techniques  and  algorithms  used  in  KONPACT  are  described 
in  Volume  I.  Volume  I  also  demonstrates  how  these  techniques  are  applied 
to  flexible  aircraft  control  system  design. 

User's  information  on  KONPACT  is  given  in  Volume  HI.  The  input  cards 
are  fully  described  for  each  program.  Brief  descriptions  of  programs 
and  information  flow  in  KONPACT  are  also  presented  for  completeness. 
Demonstration  examples  are  included  to  guide  the  user  in  data  mechanics. 
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SECTION  II 

DESCRIPTION  OF  KONPACT  PROGRAMS 

KONPACT  is  a  system  of  computer  programs  developed  by  Honeywell 
under  Air  Force  Contract  No.  F33615-75-C-3046.  KONPACT  uses  the 
state  space  approach  for  modeling  flight  control  systems  and  designs 
the  controllers  using  optimal  control  methodology.  KONPACT  interfaces 
with  the  Linear  Systems  Analysis  (LSA)  Program  of  the  Level  2  FLEXSTAB 
Program  system  developed  by  Boeing  under  Air  Force  Contract  No. 
F33S15-72-C-1172  (Reference  1).  KONPACT  can  also  be  used  as  a  stand¬ 
alone  program. 

KONPACT  operates  on  CDC6000  and  CDC7000  series  computers  and  can 
be  easily  modified  to  operate  on  other  computers.  KONPACT  has  been 
written  in  Extended  Fortran  IV  language. 

In  this  section,  a  description  of  KONPACT  programs  is  presented  in  terms 
of  overlay  organization  and  information  flow. 

OVERLAY  ORGANIZATION 

KONPACT  consists  of  two  programs,  namely,  a  modeling  program  (KONPACT-1) 
and  a  design  program  (KONPACT-2).  KONPACT-1  interfaces  with  FLEXSTAB 
through  the  LSA  program  to  obtain  the  vehicle  model  and  augments  the 
specified  dynamics  to  obtain  the  state  space  description  (quadruple  data) 
of  the  flight  control  system.  These  data  are  utilized  by  KONPACT-2 
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which  contains  the  subprograms  DIAK  and  FFOC  (documented  in  Reference  2) 
to  the  design  of  the  optimal  feedback  gains.  DLAK  stands  foi  Doubly  Iterative 
Algorithm  developed  by  Konar  (Reference  5).  The  DIAK  program  designs 
full  state  feedback  optimal  controllers.  FFOC  stands  for  Fixed  Form 
Optimal  Controllers.  FFOC  stands  for  Fixed  Form  Optimal  Control  developed 
by  Stein  and  Scharmack  (Reference  6).  The  FFOC  program  designs  reduced 
state  (practical)  feedback  optimal  controllers.  KONPACT-2  also  interfaces 
with  FLEXSTAB  through  the  LSA  program  to  evaluate  performances  of 
the  above  designed  optimal  flight  control  system. 

Table  1  provides  a  brief  description  of  programs  KONPACT-1  and  KONPACT-2 
and  their  subprograms.  The  interface  between  KONPACT  and  the  LSA 
program  is  illustrated  in  Figure  1.  The  overlay  structure  of  KONPACT-1 
program  is  illustrated  in  Figure  2.  It  consists  of  a  main  overlay  and  five 
primary  overlays  (Reference  3).  The  overlay  structure  of  KONPACT-2 
program  is  illustrated  in  Figure  3.  It  consists  of  a  main  overlay  and 
three  primary  overlays. 

INFORMATION  FLOW 


The  normal  sequence  for  obtaining  an  overall  state  space  model  of  a 
flight  control  system  using  the  modeling  program  (KONPACT-1)  is  as 
follows : 

•  The  vehicle  model  is  obtained  by  using  either  subprogram  STAMK1 
for  LSA  data  or  subprogram  STAMK4  for  other  types  of  vehicle 
data. 
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Table  1.  KONPACT  Program  Descriptions 


PROGRAM 

SUBPROGRAM 

DESCRIPTION 

KONPACT- 1 

State  space  modeling  program 

STAMK1 

Obtains  state  space  model  from  LSA 
simulator  deck  data 

STAMK2 

Obtains  state  space  model  from  transfer 
function  data 

STAMK3 

Obtains  state  space  model  from 
quadruple  data  and  interconnection  data 

STAMK4 

Obtains  state  space  model  from 
simulation  equations  (user  written) 

CONDK 

Modifies  the  state  space  model  by 
scaling,  shuffling,  truncating  and 
residualizing  the  system  variables 

KONPACT-2 

Optimal  design  program 

DATAK 

Prepares  data  for  DIAK,  FFOC  and 

LSA  programs 

DIAK 

Designs  full  state  feedback  optimal 
controllers 

FFOC 

1 

Designs  reduced  state  (Practical) 
feedback  optimal  controllers 

•  The  actuator,  sensor,  controller,  implicit  and  explicit  models 
are  obtained  by  using  either  subprogram  STAMK2  with  transfer 
function  input  data  or  subprogram  STAMK3  with  quadruple  input  • 
data. 

•  The  subsystems  defined  above  are  combined  to  get  an  overall  system 
by  using  subprogram  STAMK3  with  interconnection  input  data. 

•  The  overall  system  model  is  conditioned  (modified)  by  scaling 
and/or  shuffling  and/or  truncating  and/or  residualizing  the 
variables  using  the  CONDK  program.  This  program  also  develops 
the  rate  of  change  of  response  variables  when  required. 

The  normal  sequence  for  designing  optimal  feedback  controllers  and 
evaluating  the  performance  of  the  resulting  system  using  the  design  program 
KONPACT-2  is  as  follows: 

•  Full  state  feedback  control  gains  are  obtained  by  varying  the 
quadratic  weights  and  using  the  DLAK  subprogram. 

•  The  resulting  full  state  feedback  control  gains  are  reduced  to 

gains  only  on  specified  measurements  by  using  the  FFOC  subprogram. 

•  The  performance  of  the  resulting  closed  loop  system  is  evaluated 
using  the  LSA  program. 

•  The  above  steps  are  repeated  until  a  satisfactory  design  is  obtained. 

Table  2  describes  all  the  data  tapes  used  in  KONPACT-1  and  KONPACT-2 
programs.  The  state  space  model  data  (quadruple  data)  and  the  Name 
List  data  are  written  on  tapes  QDATA  and  NDATA,  respectively.  The 
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vehicle  data  (simulator  deck  data)  are  written  on  tape  VDATA.  The  feedback 
gain  data  from  DLAK  and  FFOC  are  written  on  tapes  DDATA  and  FDATA, 
respectively.  The  overall  system  data  in  frequency  representation  form 
are  written  on  tape  SDSTP  for  use  by  the  LSA  program.  The  DATAK  sub¬ 
program  is  used  in  preparing  data  tapes  for  DIAK,  FFOC,  and  LSA. 


Table  2.  KONPACT  Data  Tapes 


TAPE 

NAME 

DESCRIPTION 

GENERATING 

PROGRAM 

BENEFITING 
PROGRAM  (S) 

VDATA 

Simulator  Interface  data  in  the 
form  of  card  images 

LSA 

KONPACT- 1 

QDATA 

Quadruple  (A,  B.  C,  D)  or  state 
variable  representation  data 

KONPACT- 1 

KONPACT- 1 
KONPACT-2 

NDATA 

Name  list  data  of  the  state 
variable  representation 

KONPACT- 1 

KONPACT- 1 

DDATA 

Full  state  feedback  gain  data 
in  the  form  of  card  images 

KONPACT- 2 

KONPACT-2 

FDATA 

Reduced  feedback  gain  data 
in  the  form  of  card  images 

KONPACT- 2 

KONPACT-2 

SDSTP 

Frequency  domain  representa¬ 
tion  of  quadruple  data 

KONPACT-2 

LSA 

VARIABLE  DIMENSIONING 


Variable  dimensioning  (dynamic  data  storage)  techniques  (Reference  4) 
are  used  for  efficient  data  storage.  This  technique  also  facilitates  changing 
the  amount  of  allocated  (required)  storage  space  by  a  data  card  input. 

In  KONPACT  the  subprogram  arrays,  whose  size  depend  on  the  maximum 
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system  dimension  inputs,  are  stored  in  scratc  h  storage  blocks  using 
variable  entry  points.  In  the  subprograms  the  arrays  are  dimensioned 
with  integer  variables.  These  "variable  DIMENSION  statements"  remain 
unchanged  although  the  amount  of  required  data  storage  is  altered.  The 
maximum  size  of  the  scratch  storage  blocks  is  specified,  in  a  "rixed 
DIMENSION  statement,  "  in  the  main  program. 

The  size  of  storage  actually  needed  by  the  arrays  varies  depending  on  the 
maximum  system  dimension  inputs.  Thus,  if  the  maximum  size  a  user 
allows  for  his  program  changes,  there  are  only  the  "fixed  DIMENSION 
statements,  "  in  the  main  program,  to  be  changed.  Changing  the  main 
program  of  KONPACT-1  is  done  by  a  precompiler,  as  discussed  in  Section  V. 
The  user  provides  the  new  maximum  system  dimensions  by  data  cards. 
Updating  and  running  with  the  updated  main  program  are  done  with  control 
cards  in  a  single  run. 

In  KONPACT  programs,  four  scratch  storage  blocks,  namely  SI,  S2,  S3, 
and  S4  are  used.  These  are  specified  in  the  MAIN  program  of  main  overlay 
in  labeled  COMMON  statements  under  SCI,  SC2,  SC3,  and  SC4,  respectively. 
The  maximum  sizes  of  these  scratch  storage  blocks  are  defined  there. 

The  main  programs  in  the  primary  overlays  perform  four  specific  tasks 
of  variable  dimensioning.  A  primary  overlay  main  program  first  defines 
the  scratch  storage  blocks  under  labeled  COMMON  statements  as  follows: 

COMMON  /  SC  1  /  SI  ( 1 ) 

COMMON  /  SC2  /  S2  { 1 ) 

COMMON  /  SC  3  /  S3  ( 1 ) 

COMMON  /  SC4  /  S4(l ) 


) 


Second,  it  calculates  the  start  indexes  (Nl,  N2,  . . .  etc. )  of  the  scratch 
arrays  for  the  stored  data  as  shown  in  Table  3.  Third,  it  checks  the 
total  length  occupied  by  the  arrays  against  the  size  of  the  allocated  scratch 
storage  blocks.  Fourth,  it  passes  the  start  indexes  of  the  arrays  to  the 
subprograms. 

Table  3.  Typical  Dynamic  Storage  Map 


Storage  Block 


SI  (Nl) 


SI  (N2) 


SI  (N3) 


SI  (N4) 


Arrays 


V(MAXN) 
W(MAXM) 
F(MAXN,  MAXM) 
U(NUM) 


Block  Addresses 


Nl  =  1 


N2  =  Nl  +  MAXN 


N3  =  N2  +  MAXM 


N4  =  N3  +  MAXN  *  MAXM 


SECTION  m 


MODELING  PROGRAM  (KONPACT-1) 


KONPACT-1  interfaces  with  FLEXSTAB  through  the  LSA  program  to 
obtain  the  unaugmented  vehicle  model.  It  augments  this  model  with  the 
specified  dynamics  (actuator,  sensor,  controller,  gust,  etc. )  to  obtain 
the  state  space  description  (quadruple  data)  of  the  overall  flight  control 
system  for  design. 

In  this  section,  a  description  of  the  KONPACT-1  program  is  presented 
in  terms  of  overlay  structure,  flow  charts,  and  program  listings. 

OVERLAY  STRUCTURE 

The  KONPACT-1  program  consists  of  a  main  overlay  and  five  primary 
overlays.  The  overlay  structure  and  the  subroutines  in  each  overlay 
are  given  in  Figure  4.  The  subroutine  summary  consisting  of  name, 
description,  reference,  overlay  position,  and  interrelationship  is  given 
in  Table  4. 

DESCRIPTION  OF  MAIN  PROGRAMS 

Program  MAIN 

This  is  the  main  program  for  overlay  (0,  0).  This  program  assigns  the 
various  file  numbers  used  in  KONPACT-1.  Maximum  system  dimensions 
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KONPACT-1  Subroutine  Summary  (Continued) 


Table  4.  KONPACT-1  Subroutine  Summary  (Continued) 


and  scratch  array  dimensions  are  set  in  this  program.  The  program 
calls  the  organizing  subroutine  KORG1.  The  program  listing  is  given  in 
Figure  5. 

Program  MAIN1 

This  is  the  main  program  for  overlay  (1,0).  This  program  computes  the 
required  scratch  array  dimensions  as  explained  in  Section  II,  and  checks 
if  the  scratch  array  sizes  are  sufficient.  The  program  calls  the  state 
modeling  subroutine  STAMK1.  The  program  listing  is  given  in  Figure  6. 
The  dynamic  storage  map  is  given  in  Table  5. 

Program  MAIN2 


This  is  the  main  program  for  overlay  (2,  0).  This  program  computes  the 
required  scratch  array  dimensions  and  checks  if  the  scratch  array  sizes  are 
sufficient.  The  program  calls  the  state  modeling  subroutine  STAMK2. 

The  program  listing  is  given  in  Figure  7.  The  dynamic  storage  map 
is  given  in  Table  6. 

Program  MAIN3 

This  is  the  rr  ain  program  for  overlay  (3,0).  This  program  computes 
the  required  scratch  array  dimensions  and  checks  if  the  scratch  array 
sizes  are  sufficient.  The  program  calls  the  state  modeling  subroutine 
STAMK3.  The  program  listing  is  given  in  Figure  8.  The  dynamic  storage 
map  is  given  in  Table  7. 


18 


■S  r,  « 
2*1. 
a  Z  b 

Od.< 


*r 

o 

■<r 

a 

o 

<*» 

Cl 

r~< 

M 

5 

*< 

*-• 

g 

(S 

2 

2 

e 

e 

25 

X 

X 

X 

E 

E 

x 

/. 

z 

?. 

V3 

Z 

X 

c 

c/: 

OQ 

V2 

H 

c 

c 

§ 

H 

M 

/ 

w 

X 

x 

Z 

w 

Z 

/ 

> 

a 

3 

> 

0 

o 

X 

X 

ZJ 

X 

•g 

<*. 

X 

x 

£ 

Cl 

© 

o* 

Cl 

o 

►H 

x 

2 

X 

_ 

L , 

k  ■ 

V- 

* 

+-» 

X 

X 

X 

<* 

2 

s 

2 

2 

£ 

2 

2 

2 

u 

n 

*-» 

<; 

2 

< 

2 

2 

s 

e 

x 

g 

X 

S”. 

g 

g 

cs 

?■ 

E 

X 

E 

X 

E 

X 

C/3 

+ 

+ 

+ 

+ 

+ 

■f 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

>. 

n 

Cl 

CO 

Cl 

:o 

rt 

M 

CO 

O' 

in 

to 

r- 

CO 

u 

H 

X 

X 

X 

2 

2 

2 

*“i 

c-i 

1 

J 

J 

J 

•J 

J 

J 

»r^ 

II 

II 

ii 

•i 

il 

H 

n 

n 

11 

II 

II 

II 

<1 

ii 

ti 

ii 

ii 

r—i 

Cl 

CO 

T 

Cl 

CO 

f 

rH 

Cl 

CO 

O' 

iO 

<c 

c* 

00 

O) 

x 

X 

X 

’/ 

2 

2 

2 

2 

►J 

J 

J 

J 

J 

J 

J 

J 

x  x  x  x  2  2 


rH'M^'H^i^eijMrccnmcococoeococoeorc 

COC/)CaCQCflC/)COCAC/)C/)(/)(/)Cft(/>CflCOCOCftC/} 


*Wgp»W»MMW»*lO«*»PPWP«^^ 


S3(L12)  L12  *  1. 11  +  NUM'10  IJNITKNUM,  4) 


Table  7.  Dynamic  Storage  Map  for  Program  MAIN3 
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Program  MAIN4 


This  is  the  main  program  for  overlay  (4,0).  This  program  computes 
the  required  scratch  array  dimensions  and  checks  if  the  scratch  array 
sizes  are  sufficient.  The  program  calls  the  state  modeling  subroutine 
STAMK4.  The  program  listing  is  given  in  Figure  9.  The  dynamic  storage 
map  is  given  in  Table  8. 

Program  MAINS 

This  is  the  main  program  for  overlay  (5,0).  This  program  computes 
the  required  scratch  array  dimensions  and  checks  if  the  scratch  array 
sizes  are  sufficient.  The  program  calls  the  conditioning  subroutine  CONDK. 
The  program  listing  is  given  in  Figure  10,  The  dynamic  storage  map  is 
given  in  Table  9. 

DESCRIPTION  OF  BASIC  SUBROUTINES 

Subroutine  KORG1 


This  subroutine  organizes  the  execution  of  KONPACT-1  program.  The 
input  data  cards  for  KONPACT-1  program  are  read  and  printed  by  this 
subroutine.  The  print  specification  cards  are  read  in  this  subroutine 
and  the  print  control  parameter  IPRINT  is  set  for  the  printer  output 
options  of  KONPACT-1  program.  The  flow  chart  is  given  in  Figure  11 
and  the  program  listing  is  given  in  Figure  12. 


Table  9.  Dynamic  Storage  Map  for  Program  MAIN5 
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Subroutine  NAMEL 


This  subroutine  obtains  the  name  list  data  for  the  system  variables. 

The  subroutine  either  reads  the  name  list  data  from  input  data  cards  or 
internally  obtains  a  default  name  list  data.  In  the  case  of  combining 
various  subsystems  into  an  overall  system,  the  subroutine  uses  the 
interconnection  data  to  obtain  the  appropriate  name  list  data.  This  sub¬ 
routine  also  writes  the  name  list  data  of  each  system  on  NDATA  file 
for  use  by  other  programs.  The  flow  chart  is  given  in  Figure  13  and  the 
program  listing  is  given  in  Figure  14. 

Subroutine  STAMK1 


This  subroutine  obtains  the  state  space  model  (quadruple  data)  of  the 
system  implemented  in  subroutine  SIMK1.  The  flow  chart  is  given  in 
Figure  15  and  the  program  listing  is  given  in  Figure  16.  The  dynamic 
storage  map  is  given  in  Table  10. 

Subroutine  SIMK1 


This  subroutine  reads  simulator  deck  data  and  load  equation  data  obtained 
by  the  Linear  System  Analysis  (LSA)  program  and  implements  them  into 
simulation  equations.  The  flow  chart  is  given  in  Figure  17  and  the  program 
listing  is  given  in  Figure  18. 

Subroutine  STAMK2 


This  subroutine  obtains  the  state  space  model  (quadruple  data)  of  the 
system  implemented  in  subroutine  SIMKT.  The  flow  chart  is  given  in 
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Table  10.  Dynamic  Storage  Map  for  Program  STAMK1 
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Figure  19  and  the  program  listing  is  given  in  Figure  20.  The  dynamic 
storage  map  is  given  in  Table  11. 

Subroutine  SIMKT 

This  subroutine  reads  transfer  function  data  and  connection  data  and 
implements  them  into  simulation  equations.  The  flow  chart  is  given  in 
Figure  21  and  the  program  listing  is  given  in  Figure  22. 

Subroutine  TRANSK 

This  subroutine  computes  the  state  space  model  for  rational  transfer 
functions  using  the  input  Frobenius  form  of  realization.  The  flow  chart 
is^given  in  Figure  23  and  the  program  listing  is  given  in  Figure  24. 

Subroutine  DFN 

This  subroutine  selects  the  specified  Pade  approximation  to  transport 
(time)  delay  from  a  table  of  Pade  approximations.  The  flow  chart  is  given 
in  Figure  25  and  the  program  listing  is  given  in  Figure  26. 

Subroutine  PHERR 


This  subroutine  computes  the  phase  error  of  the  Pade  approximation  to 
transport  (time)  delay.  The  flow  chart  is  given  in  Figure  27  and  the 
program  listing  is  given  in  Figure  28. 
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Subroutine  STAMK3 


This  subroutine  obtains  the  state  space  model  (quadruple  data)  of  the 
system  implemented  in  subroutine  SIMK.  The  flow  chart  is  given  in 
Figure  29  and  the  program  listing  is  given  in  Figure  30.  The  dynamic 
storage  map  is  given  in  Table  12. 

Subroutine  SIMK 


This  subroutine  reads  interconnection  data  and  state  space  data  for  sub¬ 
systems  and  implements  the  simulation  equations  for  the  overall  system. 
SIMK  also  writes  the  interconnection  data  on  the  scratch  file  for  use  by 
subroutine  NAMEL.  The  flow  chart  is  given  in  Figure  31  and  the  program 
listing  is  given  in  Figure  32. 

Subroutine  QUADK 


This  subroutine  reads  directly  the  state  space  data  for  the  system.  The 
flow  chart  is  given  in  Figure  33  and  the  program  listing  is  given  in 
Figure  34. 

Subroutine  STAMK4 


This  subroutine  obtains  the  state  space  model  (quadruple  data)  of  the 
system  implemented  in  subroutine  SIMK2.  The  flow  chart  is  given  in 
Figure  35  and  the  program  listing  is  given  in  Figure  36.  The  dynamic 
storage  map  is  given  in  Table  13. 
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Subroutine  SIMK2 


This  is  a  users  written  subroutine.  Here  it  is  written  for  the  ALDCS 
controller.  It  reads  ALDCS  controller  gains  and  switch  modes  (positions) 
and  implements  the  controller  into  simulation  equations.  The  flow  chart 
is  given  in  Figure  37  and  the  program  listing  is  given  in  Figure  38. 

Subroutine  CONDK 

This  subroutine  organizes  the  modification  (conditioning)  of  the  state 
space  data  and  name  list  data  according  to  specification.  The  flow  chart 
is  given  in  Figure  39  and  the  program  listing  is  given  in  Figure  40. 

Subroutine  MNAME 

This  subroutine  modifies  the  name  list  data  of  the  system  according  to 
the  conditioning  data.  The  flow  chart  is  given  in  Figure  41  and  the  program 
listing  is  given  in  Figure  42. 

Subroutine  IMRATE 

This  subroutine  obtains  the  implicit  model  error  rates  and  truncates  the 
implicit  model.  The  flow  chart  is  given  in  Figure  43  and  the  program 
listing  is  given  in  Figure  44. 


Subroutine  DIFFK 


This  subroutine  obtains  the  rate  of  change  of  either  a  specified  response 
or  state  of  the  system  by  differentiation.  If  the  differentiation  requires 
external  rate  inputs  in  the  model,  a  message  is  printed  by  the  subroutine. 
The  flow  chart  is  given  in  Figure  45  and  the  program  listing  is  given  in 
Figure  46. 

Subroutine  REDUCE 

This  subroutine  residualizes  or  truncates  the  state  space  data  of  the 
system.  In  addition  it  computes  the  error  of  residualization.  The  flow 
chart  is  given  in  Figure  47  and  the  program  listing  is  given  in  Figure  48. 

Subroutine  SCAL 


This  subroutine  computes  the  scaled  state  space  data.  The  flow  chart 
is  given  in  Figure  49  and  the  program  listing  is  given  in  Figure  50. 

Subroutine  SHUFF 

This  subroutine  shuffles  the  state  space  data  and  the  name  list  data  by 
calling  subroutines  SHUF1  and  SHUF2,  The  flow  chart  is  given  in  Figure  51 
and  the  program  listing  is  given  in  Figure  52. 

Subroutine  SHUF1 

This  subroutine  shuffles  the  rows  and  columns  of  a  matrix.  The  flow  chart 
is  given  in  Figure  53  and  the  program  listing  is  given  in  Figure  54. 
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Subroutine  SHUF2 


This  subroutine  shuffles  the  name  list  data  arrays.  The  flow  chart  is 
given  in  Figure  55  and  the  program  listing  is  given  in  Figure  56. 

DESCRIPTION  OF  AUXILIARY  SUBROUTINES 

Subroutine  QDIO 

This  subroutine  reads  the  state  space  data  from  file  QDATA  and  prints  it. 
It  also  writes  the  state  space  data  on  file  QDATA.  The  flow  chart  is 
given  in  Figure  57  and  the  program  listing  is  given  in  Figure  58. 

Subroutine  1DRO 

This  subroutine  reorganizes  the  input  data.  The  reorganized  input  data 
is  written  on  file  BINPUT.  The  flow  chart  is  given  in  Figure  59  and  the 
program  listing  is  given  in  Figure  60. 

Subroutine  RSDRD 


This  subroutine  reads  residualization,  truncation,  and  shuffling  data  for 
the  variables  of  the  system.  The  flow  chart  is  given  in  Figure  61  and  the 
program  listing  is  given  in  Figure  62, 
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Subroutine  SDRD 


This  subroutine  reads  the  scaling  factor  and  the  new  units  for  the  system 
variables.  The  flow  chart  is  given  in  Figure  63  and  the  program  listing 
is  given  in  Figure  64. 

Subroutine  FILE 


This  subroutine  positions  the  data  file  for  reading  or  writing  data.  There 
are  three  modes  of  calling  this  subroutine.  INSERT  mode  inserts  the  label 
name  and  positions  the  data  file  for  writing.  LOCATE  mode  locates 
the  label  name  and  positions  the  data  file  for  reading.  NULL  mode  removes 
the  label  name  from  the  data  file.  The  flow  chart  is  given  in  Figure  65 
and  the  program  listing  is  given  in  Figure  66. 

Subroutine  TPR 


This  subroutine  prints  transfer  function  data.  The  flow  chart  is  given  in 
Figure  67  and  the  program  listing  is  given  in  Figure  68. 

Subroutine  HPR 

This  subroutine  prints  the  headings  for  the  system  label  name.  The 
program  listing  is  given  in  Figure  69. 

Subroutine  IDPR 

This  subroutines  prints  the  input  data.  The  program  listing  is  given  in 
Figure  70. 
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Subroutine  MPRS 


This  subroutine  prints  a  matrix,  identifying  the  rows  and  columns.  The 
program  listing  is  given  in  Figure  71. 

Subroutine  MPRS1 


This  subroutine  prints  the  simulator  interface  matrix  data  from  the  Linear 
System  Analysis  (LSA)  program.  The  program  listing  is  given  in  Figure  72. 

Subroutine  ZERO 

This  subroutine  initializes  (or  zeros)  the  elements  of  a  matrix.  The 
program  listing  is  given  in  Figure  73. 

Subroutine  INPT 

This  subroutine  l  eads  the  nonzero  elements  of  a  matrix.  The  program 
listing  is  given  in  Figure  74. 

Subroutine  INPT1 

This  subroutine  reads  the  simulator  interface  matrix  data  from  Linear 
System  Analysis  (LSA)  program.  The  program  listing  is  given  in 
Figure  75. 


Subroutine  DEBUG 


This  subroutine  prints  a  debugging  message.  The  program  listing  is 
given  in  Figure  76. 

Subroutine  ERRM 

This  subroutine  prints  an  error  message  indicating  the  program  and 
overlay  at  which  the  error  was  detected.  The  program  listing  is  given 
in  Figure  77. 


SECTION  IV 


DESIGN  PROGRAM  (KONPACT-2) 

The  data  produced  by  KONPACT-1  are  utilized  by  KONPACT-2.  KONPACT-2 
contains  two  Air  Force-owned  synthesis  programs,  DIAK  and  FFOC.  The 
DIAK  (Doubly  Iterative  Algorithm  developed  by  Konar)  program  computes 
optimal  controller  gains  for  full  state  feedback.  FFOC  (Fixed  Form 
Optimal  Control)  simplifies  these  gains  to  specified  measurements.  KONPACT-2 
interfaces  with  FLEX  STAB  through  the  LSA  program  to  evaluate  performances 
of  the  closed  loop  system. 

In  this  section,  a  description  of  KONPACT-2  program  is  presented  in 
terms  of  overlay  structure,  flow  charts,  and  program  listings.  The  DIAK 
and  FFOC  programs  are  fully  documented  in  Reference  2  and  only  the 
program  listings  are  given  here  for  completeness.  Modularization  and 
variable  dimensioning  of  DIAK  and  FFOC  programs  are  beyond  the  scope 
of  this  contract. 

OVERLAY  STRUCTURE 

The  KONPACT-2  program  consists  of  a  main  overlay  and  three  primary 
overlays.  The  overlay  structure  and  the  subroutines  in  each  overlay  is 
given  in  Figure  82.  The  subroutine  summary  consisting  of  name,  description, 
reference,  overlay  position,  and  interrelationship  is  given  in  Table  14. 
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Table  14.  KONPACT-2  Subroutine  Summary 


INPT  Reads  nonzero  elements  of  a  matrix, 


KONPACT-2  Subroutine  Summary  (Continued) 


S1IUFL  Reorders  columns  and  rows  of  a  matrix 


DESCRIPTION  OF  MAIN  PROGRAMS 


Program  MAIN 

This  is  the  main  program  for  overlay  (0,  0).  This  program  assigns  the 
various  file  numbers  used  in  KONPACT-2.  Maximum  system  dimensions 
and  scratch  array  dimensions  are  set  in  this  program.  (Note  that  scratch 
arrays  should  be  defined  in  DATAK  program. )  The  program  calls  the 
organizing  subroutine  KORG2.  The  program  listing  is  given  in  Figure  83. 

Program  DIAK 

This  is  the  main  program  for  overlay  (1,0).  This  program  computes 
optimal  state  feedback  gains  for  a  linear  time -invariant  system  with 
quadratic  cost  function.  The  program  listing  is  given  in  Figure  84. 

Program  FFOC 

This  is  the  main  program  for  overlay  (2,0).  This  program  computes 
simplified  controller  gains  for  a  linear  time-invariant  system  with  a 
quadratic  cost  function.  The  program  listing  is  given  in  Figure  85. 

Program  DATAK 

This  is  the  main  program  for  overlay  (3,0).  The  scratch  arrays  are 
defined  here.  The  program  computes  the  required  scratch  array  dimensions 
and  checks  if  the  scratch  array  sizes  are  sufficient.  The  program  calls  the 
data  preparation  subroutines  DD1AK,  DFFOC,  DLSA  and  FINK.  The  program 
listing  is  given  in  Figure  86.  The  dynamic  storage  map  is  given  in  Table  15. 
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Table  15.  Dynamic  Storage  Map  for  Program  DATAK 
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DESCRIPTION  OF  BASIC  SUBROUTINES 


Subroutine  KORG2 


This  subroutine  organizes  the  execution  of  KONPACT-2  program.  The 
input  data  cards  for  KONPACT-2  program  are  read  and  printed  by  the 
subroutine.  The  print  specification  cards  are  read  in  this  subroutine, 
and  the  print  control  parameter  IPRINT  is  set  for  the  printed  output 
options  of  the  KONPACT-2  program.  Under  the  control  of  the  input  data 
this  subroutine  calls  the  overlay  loader  to  load  the  required  primary 
overlay  into  central  memory  for  execution.  The  flow  chart  is  given  in 
Figure  87  and  the  program  listing  is  given  in  Figure  88. 

Subroutine  TIMER 


This  subroutine  computes  the  time  response  for  step  command  inputs  and 
step  gust  inputs.  The  program  listing  is  given  in  Figure  89. 

Subroutine  SGUST 


This  subroutine  computes  step  gust  input.  The  program  listing  is  given 
in  Figure  90. 

Subroutine  CALI 

This  subroutine  solves  square  Lyapunov  equation.  The  program  listing 
is  given  in  Figure  91. 
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Subroutine  STRIC 

This  subroutine  computes  a  stable  set  of  starting  gains  for  DLAK.  The 
program  listing  is  given  in  Figure  92. 

Subroutine  SHUFL 

This  subroutine  reorders  the  columns  and  rows  of  a  matrix.  The  program 
listing  is  given  in  Figure  93. 

Subroutine  SHUF 

This  subroutine  recordes  rows  and  columns  of  matrices.  The  program 
listing  is  given  in  Figure  94. 

Subroutine  RESP 

This  subroutine  computes  covariances  for  disturbance  inputs.  The  program 
listing  is  given  in  Figure  95. 

Subroutine  CO  VAR 

This  subroutine  computes  the  covariance  matrix.  The  program  listing 
is  given  in  Figure  96. 

Subroutine  COSTA  T 

This  subroutine  computes  the  costate  matrix.  The  program  listing  is  given 
in  Figure  97. 
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Subroutine  TRANS 


This  subroutine  computes  the  gradient  transformation  matrix.  The 
program  listing  is  given  in  Figure  98. 

Subroutine  UNSCR 

This  subroutine  transforms  the  gradient  transformation  matrix.  The 
program  listing  is  given  in  Figure  99. 

Subroutine  GCAL 


This  subroutine  solves  the  rectangular  Lyapunov  equation.  The  program 
listing  is  given  in  Figure  100. 

Subroutine  CAL 


This  subroutine  solves  the  square  Lyapunov  equation.  The  program  listing 
is  given  in  Figure  101. 

Subroutine  DDLAK 


This  subroutine  reads  data  from  cards  or  from  file  QDATA  and  prepares 
data  file  SCRTCH  for  DIAK  subprogram.  The  flow  chart  is  given  in 
Figure  102  and  the  program  listing  is  given  in  Figure  103. 


Subroutine  DFFOC 


This  subroutine  reads  data  from  cards  or  from  file  QDATA  and  prepares 
data  file  SCHTCH  for  FFOC  subprogram.  The  flow  chart  is  given  in 
Figure  104  and  the  program  listing  is  given  in  Figure  105. 

Subroutine  DLSA 

This  subroutine  reads  data  from  files  QDATA,  DDATA,  and  FDATA  and 
prepares  open  loop  or  closed  loop  state  space  data.  The  flow  chart  is 
given  in  Figure  106,  and  the  program  listing  is  given  in  Figure  107. 

Subroutine  FINK 

This  subroutine  uses  the  state  space  data  obtained  by  the  DLSA  subroutine, 
computes  the  frequency  domain  data,  and  writes  it  on  file  SDSTP  for 
the  LSA  program.  TTie  flow  chart  is  given  in  Figure  108,  and  the  program 
listing  is  given  in  Figure  109. 

DESCRIPTION  OF  AUXILIARY  SUBROUTINES 

Subroutine  MP 


This  subroutine  prints  matrix;  data.  The  program  listing  is  given  in 
Figure  110. 
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Subroutine  QUTP 

This  subroutine  writes  the  nonzero  elements  of  a  matrix  on  a  data  file. 
The  program  listing  is  given  in  Figure  111. 

Subroutine  POLES 

This  subroutine  computes  the  eigenvalues  of  a  matrix.  The  program 
listing  is  given  in  Figure  112. 

Subroutine  HESSEN 

This  subroutine  computes  the  upper  Hessenberg  form  of  a  matrix  by 
Gaussian  elimination.  The  program  listing  is  given  in  Figure  113. 

Subroutine  QRCALL 

This  subroutine  computes  the  eigenvalues  of  an  upper  Hessenberg  form 
matrix.  The  program  listing  is  given  in  Figure  114. 

Subroutine  QR 


This  subroutine  performs  a  double  QR  iteration  on  a  real  matrix.  The 
program  listing  is  given  in  Figure  115. 

Subroutine  INPTM 


This  subroutine  reads  nonzero  elements  of  a  matrix  The  program  listing 
is  given  in  Figure  116. 
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Subroutine  WTP 


This  subroutine  writes  the  nonzero  elements  of  a  matrix  on  a  data  file. 
The  program  listing  is  given  in  Figure  117. 

Function  GRAN 

This  function  subroutine  generates  random  numbers.  The  program 
listing  is  given  in  Figure  118. 

For  documentation  of  subroutines  IDRO,  IDPR,  ERRM,  TDINVR,  INPT, 
ZERO,  MPRS,  FILE,  and  DERRM  the  reader  is  referred  to  Section  III. 


SECTION  V 


CONCLUSIONS  AND  RECOMMENDATIONS 

The  scope  of  this  program  was  to  develop  programs  to  interface  the  level 
2. Ox.  00  FLEXSTAB  with  DIAK/FFOC  optimal  control  programs.  The 
theory  and  algorithms  for  the  interface  are  presented  in  Volume  I.  Two  1 
demonstration  examples  are  given  in  Volume  III  to  show  the  data  mechanics 
of  the  interface.  A  brief  documentation  of  the  interface  program  KONPACT 
is  provided  in  this  volume. 

RECOMMENDATIONS  FOR  FUTURE  SOFTWARE 
DEVELOPMENT  WORK 

•  Full  documentation  of  KONPACT  should  be  made 

•  DIAK/FFOC  programs  should  be  modularized  and  variable 
dimensioned 

•  Faster  algorithms  should  be  used  to  reduce  design  time 

•  Reduced  Controller  Software  (FFOC)  should  be  augmented  with  ' 
the  minimal  order  observer  design  capability 

CONCLUSIONS 

A  large-scale  software  -  KONPACT  -  for  the  design  and  analysis  of  active 
control  systems  is  briefly  documented  in  this  volume.  The  work  reported 
in  Volumes  I,  n  and  in  establishe  d  the  total  dynamic  system  approach  for 
the  design  and  analysis. 
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DIMENSION  II  (Ntl*>  ,.<>•*  I  VTF6I  .*iN^(rtirm  ,NM'I(*TFH» 

commo  /sc?/  <?<n 

OIMEN^ION  AINX^.NAW)  .1.  (*I*M. 'HJNI  ,C(N*M. •>'»•«.)  .••tlN'-N.NUM) 

OIMENSION  AT  (MST.MCT.MTFm  .  oT  (MSI  *  I  .Ml  Fq> 

OIMENSION  CT  (l.MST  .NTfc),oT  M«1«“TFH) 

0!MEN‘  ION  P  (MTFp.MTF*  I  .0(  «TcH,rn)Ml  .6  (NMm.mTFHI  . S ( NRM. MUM I 
6IMFNC  I  ON  P«INT(?.*<T)  .MS  ( ?.  *T  .MTFp ) 

COMMO  •  /SC3/  S"»(  II 

OIMfNMON  NNS  (*I*M >  .VNS  <N*M.?>  .0£SS(NA4.  lul  .UNITV^AM.41 
0 1  MEN  ION  UNO  I  ’  !»M )  ,  NO  (  NPm  .  ? »  « IlF  S  0 1 NPN  ,  I  iM  .  UN  I  TO  I NPM  .  »  » 
OTMEN^ION  NN!  <r;'JMI  .VNMNIM.P)  .of  si  <N)4.  I  u*  .'JNITf  (nom.oi 
IF(  IP->TNT.t-0.6lCALI.  0«,MUG(1.4-mb|i>'.4M?  .?O.I*> 

COMPUrr  APR  AT  ST  APT  I'iOFXfS 

FOR  V.T.F*  ADOT./.R*  till  .II.MNa*  'INR.MNJ 

Nl*l  •  N?«NI*MA*M  *  N1*N?.M»A  A  Vi.*N1.mA»N*MAv  « 
NS*Nfc.MST*MTFM  S  N^3NS»MST«mTfm  *  M7=N6.4TFR  *  Nb=N7.MTFrt 
N9*N6»NUM  %  N1  sNQ.MTFJ  «  N|  I=Nl.).MIF4  %  *i  1  ?sN  I  I  •  <*TF  M 

F0»  A.O.C.0 

MI  *1  F  N?*M|  «N*M*NXM  4  M3*MA*-|*N«NUM  A  *<,*M3»NPM*NXM 
MS*MA.N«M*NUM 
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M<»«KP.NPM«NIIM  4  K|'sKa.?»MT  S  K  |1  rK  |  O. ?*MT*MTF  a 
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OMEC*  TP  SCRATCH  AOPAV  SIZES  -.RE  SUFFICIENT 
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IPIKI » .GT.M5I MF5! 1 cF I l 
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IC*LL  •>f«RM(NI?.MFSl  l  ,Ln.MS4,  .«si  .MS?tMS3.MS4.?,(/.4HMA!N«4H? 

If  (TPJTNT.EO.MCALl  DFMHtt  (  ?.4mMAIN.*m?  .?.0«*H) 
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Figure  7.  Program  MAIN2  Program  Listing 
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Figure  7.  Program  MAIN2  Frogram  Listing  (Concluded) 
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Figure  8.  Program  MAIN 3  Program  Listing  (Concluded) 
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OVERl *Y <<ONl .4.;i> 

PROGRAM  MAIN4 

PUPPCKF  -  TO  SET  UP  DIMENSIONS  CALL  STAMK4 

ANAL  ISIS  -  A  F  KONAP  /  J  «  mAmESH  -  T NR  MONEYKELL  INC 
DATE  vPITTEN  -  |97s 

SUBPROGRAMS  called 

DE  JPM 
ST  f MK4 

COMMO‘1  /DIM/  MSI  .MSP.MST.MSm.MAXN.MAXX.VAM.VRN.NUM.NYN 
|  .MM.MJ.NO.MP.MP.NP.HS.MNfMTFH.MST.MT 

COMMO  i  / INOlIT /  IP,  IM.IPPINT.  INSEbT. LOCATE. null. MARM20I  .JN.  JO.JS 

commo  ■  /sci/  sun 

DIMENSION  V  (MAXNI  .4  (MAXMI  .*■  (MAXN.MAAM)  .UINDMI 

commo  '  /sc?/  s?<n 

DIMENSION  A(NXM.NAM) «M(NXH,NUMI .cinpm.nani .oinpm.numi 
COMMO-i  /SC 3/  S3<n 

DIMENSION  NNS(NXM) .VNS(NXM,?I , DESS  I  NX M. 1 0 ) . UN  I T S ( NXM  .  A I 
DIMEN  'ION  NNOINPMI  ,VNO(NPM.») , DCSO ( N» X  .  1 0 1 . UNI  TO ( NPN. A I 
DIMENSION  NNI  (NUMI  .VN1  (NUM,->)  ,  DfSl  (NON.  1 01 .  UNIT  I  I  NUN*  A I 

COMPUIt  AMRAY  START  INDEXES 
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Nl-l  o  N?«NI«MAXN  ft  N3«N2*MaXM  ft  M4.N3*MAXN*MAXM 
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FOR  A.R.C.D 

M  l .  |  «  M?»M l «NXM*NxM  A  M3.M>»NXM*NUM  I  MA«M3»NPM»NXM 
MS«M4.NPM«NUM 

fop  N*;«,.VNS,Dfss.UNITs*NND,vND.DESO.UMITO.NNI*WNI.DESI»UNITI 

L I *1  «  L2*L I »NxM  ft  L3«L?*Nxm»x  ft  L4«L3*NxM*10  ft  L5»L4.N*N44 
L6«LS*NRM  ft  L7»LA«NRM«?  ft  L««L7*NRM»10  ft  L9«L8»NROA 
L  1 0*L  ,»NUM  ft  II I»L|0*NUM«P  ft  L I ?»U I »ftUM« 1 0  ft  L 1 3»Ll**NUM»4 
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1CALL  TEPRMIN5.MS.Ln.MS4.MSl  .MS?.MS3vNSA.A,0»AHMAIN.AHA  .IN) 

CALL  -'URROUTINF  STaNKa 

CALL  STAMKAtSl (Nil  .Si  (N?» ,SI (N3l »SI  (NA) ,S?«M| I ,S?(M2) »S2IN3' . 
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01  MENS  ION  NNNI  (NUM|  .  VNN I  <NUm«  >  )  .  OF  SN I  I N  JM  .  I  0 )  *  •  IN  I  TN  I  (NUM.4) 

COMMO.-i  /SCI/  SI  I  l  I 

OlMENsION  0UMMY1  (NOM|  |  ,Nl)Ml  ?)  ,  IJUMMV ,! ,  nOM2  I  .NON/?)  •  DUMMY  3  ( NUM  ) 

DIMENSION  ESINXM.NllMI  ,ER(NRM,  MOM  t 

OlMENsION  NSMiirS  (NXMI  .NSMUPO  <N»R>  .NSMJEJ  (NUM) 

DIMENSION  CS(NRM.NxM) ,DS (MRM.NUMt .C*INRm,nXM) .OMlNRM.NUMt 
DIMENSION  IRSINRM) .O(nRM.NRm) 

IE  (  IPy  INI  .EO.MCALl  DEBUG! 1 .4«MAIN.4h5  .5,0. 'M> 

N  X  UM  *  JXM  *NIJM  s  MWOQQ*  1  7  X  NRSM«I 
NDM 1 1 sM4X0 (MWORO.NXM-NPM.NRsMI 
N0Ml2rM4X0(NXUM,N«MI 
N0M?l=MAX0(NPM,NXM.NR$Mt 
NDM?2  =  M4X(] (NXM.NUM.NPM) 

PRINT  ERROR  me  c  SEC.E  lr  0 1  MENS  I  ON  OE  SfNAT  CM  4RR4YS  ARE  INSUEEJCIE 

M  1  ■  1  x  M  2  *  M  l  ♦  N  X  M  •  N  Y  M  1,  M 3 sM S ♦ 4XM* NO*  f  *•  ■  *M3*NRM»NXM 
M5«M4.NRM*NUM  X  MSsM5»NRM*NxM  X  M7»M6*NRm  *NljM 
N l *  1  S  N2*N 1  *  NXM  *  N3aN?*NXM»p  l  N4«N3*NXM»10  *  N5*N4»NXM»4 
N6*N5  »NPM  X  N7*N6»mRM»?  X  NosN7»NRM»  1 0  *  NS*<N8*NRM*4 
N10*N4.NUM  %  N1 I «N J 3.NUM* J  «  N l 2 »N ) 1 . MUM* 1 C  J  Nl 3*Nl2»NUM*4 
N 1 4  *N 1 3  *NXH  X  f!l5  =  N|4,NXM»?  X  N I 6*N 1 5 »NXM* I  0  i  Nl 7*N 1 6*NXM*4 

N  l  A  *N  t  7 »NRM  X  NlR*NlB«N0M»2  X  N?U*N 1 9 »NRM» l 0  *  N2 I *N20 »N«M*4 

N2? *N 7 1 *N(IM  X  N23*N22,NUM«?  $  N?4«N?3 «N JM* 1 0  X  S25*N24*NUM*4 

11*1  x  L2*l- 1  *NOM  1  l  *NOM  |  2  X  L3=L?*NDM?l»NDM2?  *  L4«L3»NUM 

L5*L4.NXM*NUM  X  L6=L5  ,NRH*NI|M  X  L7*L6*NXM  t  18»L7*NRM 
L9*LA.NUM  »  !_10sL9.NPM*NXM  «  C  1  I  *L  I  0 ♦  NR M* NUM 
LI2*LI  I  ,NOM*NXM  *  L 1 3 *L 1 2 »NRM»NDM  t  E14*L13»NRm 
L 1 5*L t  4  »NRM*NRm 

IE  (  (u  5.C.T  .MSI  I  .0  .  (M7.C.T.MS21  .OR.  (N25.GT  .MS3>  t 
IC4LI.  r>ERRM<US.MY.N?5,MS4.M$l.MS2.MS3»MS4.5»0*4HM4IN»4H3  ,IM> 
IT(  JI>0|NT.EO.MC*U  OE  bog  <2 ,4hM4  1N.4M5  •  5 . 0  .  T  W  > 

C4LL  sURROlJT  INE  CO*iO'1' 

C4LL  ^ONO* (S/(Mll,s,(M?l,S?(MYl,S?(M4l,S2(MSt.s2fM6t. 

I  S3 (N1 i  . S3 (N?t  .S3  <NY 1 ,C3 (N4 l .SY (N5t . S3  INN) . 


M4  INS 

2 

M41NS 

3 

M4INS 

4 

M4INS 

5 

M4IN5 

0 

M4IN5 

7 

M4IN5 

8 

M4IN5 

* 

M4INS 

10 

M4JN5 

u 

M4IN5 

12 

M41N5 

13 

M4JN5 

14 

M4IN5 

IS 

M4IN5 

lb 

M4IN5 

17 

M4IN5 

18 

M4IN5 

19 

M4IN5 

20 

MAINS 

21 

M4IN5 

22 

M41NS 

23 

M41NS 

2** 

M4IN5 

2S 

M41NS 

2b 

M4IN5 

27 

M4IN5 

28 

M4JN5 

29 

M4INS 

30 

M4IN5 

31 

M4IN5 

32 

M4IN5 

33 

M4INS 

34 
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36 
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M4INS 

38 

MAIN5 
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41 
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42 
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45 

MAINS 

46 

MAINS 

47 
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48 
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49 
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Figure  10.  Program  MATN5  Program  T.isting 
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2S3<N7>  «'j3<N8>  .$3<No)  <$3(N!0t  «S3<Ntl  I  .53<N12>  •  MAINS  65 

3S3fNn).S3lN|4»,S3lNlS>.S3<Nl6‘»S31N17».S3INI8).  MAINS  66 

4S3CN10) >r 3(N20> .S3IN2I )  «S3l'l2?  .S3 «N?3> «53<N2-.S .  MAINS  67 

SSI  (LI )  .51 1!_2>  .SHL3>  «SI  <L4I  .SI  <l5>  .SHL6I .  MAINS  68 

6SI(L7i.Sl(L8I.SI(LS).Sl(L10).r>t(Lll).Sl(L'2).  MAINS  69 

7S1 (LID  *Sl (L14) .NXM.NHM.NUM.NO*' 1 1 .NON 1 2 .NON?  I , NDM2?)  MAINS  70 

irdPfxINT.EO.StCALL  DrHUG'3.4r.'lAlN.4HS  .5.0.16)  MAINS  7l 

MAINS  72 

RETURN  TO  main  OVEPt-AV  MAINS  73 

MAINS  74 

ENO  MAINS  75 


Figure  10.  Program  NLA  IN 5  Program  Listing  (Concluded) 
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Figure  11.  Subroutine  KORG1  Flow  Chart 
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SUBROUTINE  KOPr.  l 

ANALYSIS  -  A  F  K0N»9  /  J  K  mAmESH  -  THE  H9NEYPFLL  INC 
PURPOSE  -  TO  ORGANIZE  EXECUTION  OF  KONPACT-l  PROGRAMS 
DATE  WRITTEN  -  JULY  IP** 

SUBPROGRAMS  CALLED 
MPtJ 
IOpO 
IOpP 
FILE 

LABELtEO  COMMON  LIST 


IR 

FILE  NUMBER  FOR  CARO  READER 

IN 

FILE  NUMBER  FOR  LIME  PRINTER 

IP'JINT 

PRINT  CONTROL  FLAG 

insert 

HOLLERITH  I NSC 

LOCATE 

HOLLFR | tm  loca 

NULL 

HOLLERITH  NULL 

MAP* 

HOLLERITH  SS..S 

JN 

file  NO  FOR  NAME  .1ST  OaTA  file 

JO 

file  no  for  quadruple  data  file 

JS 

file  no  FOR  SCRATCH  FILF 

IMF  AO 

LABEL  NAME 

SC'IOE 

SYSTEM  COOE  kord 

SOI  S 

system  description 

MSVS 

PRESENT  SYSTEM  NUMBER 

ME*D 

PRESFNT  SYSTEM  HEADING 

NSYS 

SYSTEM  NUMBERS 

SHF  *0 

systeh  meaoings 

Pm'fAO 

PREVIOUS  SYSTEM  mCAOING 

COMMON  /S*S/  SCOOE.SOES(5).-4SYS.HEA0<20MNSyS(BI.SHEAD(9'20> 

I • PMEAn  <  20 1 

COMMOJ  /IN0UT/  IR«IW«IPRIMT. INSERT t LOCATE (NULL • MARK (20I.JN.JQ.JS 
COMMON  /DIM/  MSI .MS2.MS3.MSa.mAXN.NAXM.NAM.NRM.NUM,NTM 
1 «MN*Mo*MQ*MR»MR.NB.MS»NN»MTfB,NST  «MT 
DIMENSION  CARO (201  .LABEL (5*0 1  . AHEAD  120*20) 

INTEGER  HINSE.HL0CA.W4ULL.HO0LR 

DATA  mINSE. ML OCA. HNULL.MOOLR/WHINSE.AHL0CA.4HNMLL. AMISS*/ 

DATA  hSTOP.MSYST.MEM.mC.MCOnT/AMSTOR.AMSYST.AMtM  ,2HC  .ANCONT/ 

data  hprin.mtmin.meryt/amprin.amTmin. AMCRYT/ 

DATA  mTPUT . HNAL .MPl JT/4HTPUT , AhNAL  .AmPUT  / 

DATA  »DLSA>MOCON.MDOU«/AMSLSA.AhSCON.AHSOUA/ 

DATA  ^oTRA.hOINT.MDSIM/AHSTQA.AmSINT.AhSSIM/ 

DATA  •<PEFE.MRENC.MF8BB.MBPBq/<.MREFE* AMPENC. AHE  .AM  / 

DATA  mCND/AHCND  / 

MAXIMUM  DIMENSIONS  FOR  V.W  »ND  F 

MAXN*'|XM.NYM«NRM  S  MAXM»NXM.NYM»NXN.N JM 

MAXIMUM  DIMENSIONS  FOR  COMBINING  TRANSFER  FUNCTION  BLOC*' 

MST»5  *  MT»6 

MAXIMUM  DIMENSIONS  FOR  COMBINING  SUBSYSTEMS 
MM«NRm 

I F  ( MM . L  T  .NUM )  MMaNUM 

MS«NXm  %  MQzMR  S  MRbMB  S  MPsMB*?  I  MN«MM«M0 
MAXIMUM  SYSTFM  NUMBER 


Figure  12.  Subroutine  KORG1  Program  Listing 


K0RG1  2 
KORGI  3 
KORG1  A 
KORGI  5 
KORGI  6 
KORGI  ? 
KORGI  0 
KORGI  9 
KORGI  10 
KORGI  11 
KORGI  12 
KORGI  13 
KORGI  14 
KORGI  IS 
KORGI  16 
KORGI  17 
KORGI  IB 
KORGI  19 
KORGI  20 
KORGI  21 
KORGI  22 
KORGI  23 
KORGI  2a 
KORGI  25 
KORGI  26 
KORGI  27 
KORGI  28 
KORGI  29 
KORGI  3? 
KORGI  31 
KORGI  32 
KORGI  33 
KORGI  34 
KORGI  35 
KORGI  36 
KORGI  37 
KORGI  38 
KORGI  39 
KORGI  AO 
KORGI  A I 
KORGI  42 
KORGI  A3 
KORGI  44 
KORGI  AS 
KORGI  *6 
KORGI  47 
KORGI  48 
KORGI  49 
KORGI  50 
KORGI  51 
KORGI  $2 
KORGI  S3 
KORGI  5a 
KORGI  55 
KORGI  S6 
KORGI  57 
KORGI  58 
KORGI  59 
KORGI  60 
KORGI  61 
KORGI  62 
KORGI  63 
KORGI  64 
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c  KORGI  65 

N5.9  KORGI  66 

C  KORGI  67 

C  OEF  IN*7  INPUT/OUTPUT  PSRAMETfRS  KORGI  66 

c  KORGI  69 

JR«5  *  1**9  «  I  PR  I  *|T  *4  %  JN«  7  *  JQ*H  *  JS«3  KORGI  70 

'  INSERT  *MINSE  9  LOCATE.HLOCA  *  NULL*HNJLL  KORGI  7| 

00  10  1*1*20  KORGI  72 

100  MARK < | 1 *HOOLP  KORGI  73 

L*HEL<  1»*hREEE  KORGI  74 

LABEL (»t«MR£NC  KORGI  75 

LABEL  ( 11  *HEflf»fl  KORGI  76 

00  1 0''  1*4. 2C  KORGI  77 

I0S  LABEL * I 1-HGHRP  KORGI  76 

c  KORGI  79 

C  READ  INPUT  U AT A  INTO  INPUT  nATA  BUFFER  FILE  K0PG1  80 

c  KORGI  SI 

PE*  IN  >  !R  KORGI  82 

110  CONTINUE  KORGI  S3 

REAO(^«120ICARO  KORGI  8% 

IF (EOF (6t) 140* 115  KORGI  85 

115  CONTINUE  KORGI  86 

WRITE* !R*120t  C»RO  KORGI  87 

120  FORMAT »20A4)  KORGI  89 

GO  TO  119  KORGI  89 

I  AO  CONT  I-iUE  KORGI  90 

ENDFIiE  IR  KORGI  91 


RE W INI  IR 

c  READ  pR I NT  SPECIF ICAT ION  ANn  SET  IPR 

C 

142  CONTI  lUE 
REAr)IiP*17(*)CAM0 

OECOOF  (4«I43*C»R0(  I  I  ICC.Du>*«Y 

143  FORMAT (A2*A2l 
IFICC.EQ.HCtGO  TO  14? 

IFICA  *0111  .NE.HPPlNtGTl  TO  152 
IF  (CAPO 1 31  .EO.mTHIni  IPPINT*-, 
IF(CAJf)I3)  .EO.hTMInIGO  TO  1*2 
IFICA-0I3I .EO.hERTTI IoRINTxS 
IF(CAjD«3) .E0.MERTT1G0  TO  1a2 
IFICAJ0I3)  .NF.HTPUT1G0  TO  1<*4 
IF ( IP. 'INT.EQ.lt IPP|NT«5 
IF ( IP® INT ,E0.5 1  GO  TO  14? 

IPRINT*3 
GO  TO  142 

144  CONTINUE 

!F(CAPP(3t  .NE.hNALiGO  TO  14* 

IF(|Po|NT.EO.I I IPRjnTsA 

IFIIPOINT.EO.41GO  TO  14? 

IPRIN1  =  2 
GO  TO  142 

145  CONTINUE 

IF(CAJ0(3I .NE.hPUTiGO  TO  14B 
IFlIPnINT.E0.4l IPRTNTs] 

IF1I PPINT.EO.lt GO  TO  14? 

IF!  IPPINT.EO.?! IPRINT.4 
IF!  |Pn INT.rO. 31 IPR|NT=S 
IF1IPUINT.E0.41G0  TO  14? 
1F1IPPINT.E0.5IG0  TO  1 4 ? 

I  PRINT. 1 
GO  TO  142 
C 

C  PRINT  ERROR  MESSEGf 

C 

|4«  CONTI*  HE 


Figure  12.  Subroutine  KORGI 


KORGI  92 
KORGI  93 

NT  KORGI  94 

KORGI  95 
KORGI  96 
KORGI  97 
KORGI  96 
KORGI  09 
KORGI 100 
K0RG1I01 
KORGI 102 
KORGI 103 
KORGI 104 
KORGI 105 
KORGI 106 
KORGI 107 
KORGI 108 
KORGI 109 
KORGI 110 
KORGI 1 I 1 
KORGI 112 
KORGI 113 
KORGI I 14 
KORGI 115 
KORGI I 16 
KORGI 117 
KORGI I 18 
KORGI 119 
KORGI 120 
KORGI 121 
KORGI 122 
KORGI 123 
KORGI 124 
KORGI 125 
KORGI |26 
KORGI 127 
KORGI 126 
KORGI 129 
KORGI 130 
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uuu  uuu  uuu  uuu  uuu 


c 


WRITECtW.lSO) 

K0RG1 1 3 1 

ISO 

FOP* at  tlMl* //»!*» IohPpinT  C»»n  SPECIFICATION  FPP0P.//.1X. 

K0RG1 1 32 

I43MINOUT  ANO  FINAL  OUTPUT  OATA  *lLL  M£  pRINTEDi 

KORG1133 

IPRINT*4 

K0RG1I34 

K0RGI135 

POINT  INPUT  OATA 

K0RG1 1 36 
KORGl 137 

152 

CONTINUE 

K0RG1 1 38 

REWINn  10 

KORG| | 39 

ir  (<  loPiNT.NE.n  .A->o.  (  ippint.lt  .logo  to  is« 

KORG1140 

WRITE(IW.l54) 

K0RGI14I 

154 

FOPNAT ) IH1 .//• IX. ?<.«•••  INPUT  OATA  CA9flS  *••.//) 

K0RGI142 

CALL  T0PRC1R.IW) 

K0RGU43 

REWMn  IP 

K0RG1 .44 

ISO 

CONTINUE 

K0RG1145 
K0RG1 146 

REORGANIZE  INPUT  OaTA 

K0RG1147 

K0RGU48 

call  TDRO(IR.I*.JSi 

K0RGU49 

KORG11SO 

PRINT  REORGANIZED  INPUT  DATA 

K0RGU51 

KORGU52 

IFIIPPINT.LT. 6>C,0  TO  164 

K0RG1 153 

WRITE ( (W. 160) 

K0RG11S4 

160 

FORMAT (IHl.//.lX.3nH**«  PE0OGANIZE0  INPUT  OATA  *••.//) 

K0RG115S 

CALL  IOPRIIR*IWI 

KORGl 15b 
KORGl 157 

RE AO  INITIALIZING  INSTRUCTIONS 

KORGl 158 
KORGl 159 

166 

CONTINUE 

KORGl 160 

ISYS*: 

KORGl 161 

00  16«i  1*1.9 

KORGl 162 

00  164  J*1 .20 

KORGl 163 

166 

SHE AO ( I » J) *MBRPB 

KORGl 164 

168 

CONTINUE 

KORGl 165 

READ ( TP. 1 70 • CARD 

KORGl 166 

170 

FORMAT (28 A4I 

KORGl 167 

IF(CAnD(1I.E0.hPRIm)GO  TO  148 

KORGl 168 

IFCCAPOMI.NE.HCONTTGO  TO  175 

KORGl 169 

CALL  riLE'JN. LOCATE. LABEL) 

KORGl 170 

READ!  jNH(SHCAO(I*  jl.J*l.?Ol«Tal.9l 

KORGl 171 

CALL  riLEUN.NULL. LAPEL) 

KORGl 172 

WRITE ( IW.430) 

KORGl 173 

WRITElIW.4401 <(SHCAD(|.J>.J*1.?0).I*I«9) 

KORGl 174 

GO  TO  180 

K0RGU75 

175 

CONTImUE 

KORGl 176 

CALL  riLEIJN. INSERT. MARK) 

KORGl 177 

CALL  F1LEU0.  INSERT. MARK  I 

KORGl 178 

GO  TO  198 

KORGl 179 
KORGl 180 

READ  SYSTEM  REFERENCE  OATA 

KORGl 181 
KORGl 182 

188 

continue 

KORGl 183 

REAOI TR.176ICAP0  f 

KORGl 184 

IF(CAo0(1*.NE.h»EFf)G0  TO  1 90 

KORGl 185 

183 

CONTINUE 

KORGl 186 

READ! |R.|70)CARO 

KORGl 187 

IF (CAPO! 1 ) .EQ.HENDtGO  TO  18S 

KORGl 188 

OECOOc (4.220.CAR0I T? 101 .NSVSNO.D2 

KORGl 189 

DO  18s  1*1.20 

KORGl 190 

185 

SHE AD 1 NSYSNO. 1 ) »C APO < 1 « 

K0RG1I9I 

GO  TO  183 

KORGl 192 

188 

CONTINUE 

KORGl 193 

WRITE ( IW.436) 

KORGl 194 

WRITE (IW. 4401  1  (SHEaDU.J)  .J*l. 20)  .1*1.9) 

KORGl 195 
KORGl 196 

Figure  12.  Subroutine  KORGl  Program  Listing  (Continued) 
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READ  SYSTEM  SPECIFICATION  CAHfi 

•CORGI  197 
KORGt 198 

peaocir.itiicard 

K0RG1 199 

190 

continue 

KORGI20P 

IFICAupin .EO.nSTOPlGO  TO  400 

KORGI20I 

IF  (CA^DC  1 1  .NE.HSVST 1  GO  TO  ?«>0 

K0RG1202 

IF( (PTINT.lt. 6100  TO  210 

KORG1203 

CALL  hPRCCAPO.IWI 

K0RG1204 

W»ITE(IW«2C0INSI.MS2.MS7.MS4»MAAN.NAX<4 

K0RG120S 

1 

l.NXN.flPM.NUM.NYM.MH.HB.NO.MP.MH.NR.NS.MN.NTFB.MST.NT 

KOR61206 

200 

F0RNAKU.15CI5.Un 

K0RGI207 

210 

CONTINUE 

K0RGI286 

0EC00F  (4.220. CARO C 11  101  .N5Y-.N0.D2 

KORG1209 

22  0 

F0PMAr(A2.II.A|l 

KORG1210 

irCNSrSNO.OT.NPlOO  TO  26R 

K0RG1211 

I SYS* t SYS* 1 

K0RG1212 

irciSvS.GT.20UO  Trt  260 

K0RG1213 

00  ?4  1*1 .5 

K0RG1214 

11*5.1 

K0RG1215 

240 

SOESCTUCAPOCin 

K0RG1216 

00  24s  1*1.20 

60RG1217 

245 

PHEAOI  IUSHEAOCNSYSNO.  I) 

K0RG1218 

DO  25  1*1.20 

K0RG1219 

mEaoc  ii*Caroc«i 

60661220 

A  HE  AO  (  ISYS.IUCAPOC  II 

K0RG1221 

250 

SHE AO ( NSYSNO. 1 1 *CAPO i I  1 

K0RG1222 

NSVSC ISYSUNSYSNO 

K0RC1223 

IFCIPRINT.LT. 6IG0  TO  256 

K0RG1224 

NP1TEC 1N.253ICAPO 

K0RG1225 

WPITECIW.2S3IHFAD 

K0RG1226 

NR I TE  C I w.253 1 phE AO 

K0RG1227 

WRITE (Iw. 2531 C SHEAOCNSVSNO.il. 1*1. 201 

K0RG1226 

253 

FORMAT C IX. 20A41 

K0RGI229 

256 

CONTINUE 

KORG1230 

REAOC IR.170ISCOOE 

K0RGI23! 

IF  (SC'TOE.EO.HOLSAir.O  TO  300 

KORG1232 

IF  CSC  lOE.EO.HOTPAIc.O  TO  320 

K0RG1233 

I F  C  SCODE . EO .  HOOU  A I  r.O  TO  340 

K0RGI234 

IFCSCOOE.EO.HOINTIr.O  TO  340 

K0PGI23S 

IFCSC'iDE.EO.MOSIMir.O  TO  360 

K0RG1236 

IFCSCODE.EO.HOCONlf.0  TO  360 

60PG1237 

K0RG1238 

PRINT  ERROR  MFSSEGE 

K0RG1239 

KORG1240 

260 

CONTINUE 

K0RG1241 

WRITE  1  IN. 2601 

K0RG1242 

260 

FORMAT C1H1.//. ix. 31MSVSTEM  c*PO  SPECIFICATION  fPRORl 

K0RG1243 

WRITE* 1W. 2901 CAPO 

K0RG1244 

WR I TE  c I W . 290 1 SCOOE 

K OP G 124 5 

290 

FORMAT C IX. 20A41 

606GI246 

WRITE » IW.295lNSYSNO.NB 

K0RG1247 

fNJ 

Ml 

F0RMATCU.I2.1X.I2) 

60661246 

STOP  111 

606GL249 

6066125* 

CALL  iVEPLAY  LOAOEP  TO  LOAO  RFOUlREO  PROGRAMS  FOR  EXECUTION 

60661251 
K OP G 125 2 

300 

CONTINUE 

K0RG12S3 

CALL  '1VEPLAVC4HKON1.1.0I 

60661254 

GO  TO  180 

60661255 

320 

CONTINUE 

60661256 

CALL  OVERLAY C4HN0NI .2.01 

60661257 

GO  TO  180 

60661256 

340 

CONTINUE 

60661259 

CALL  OVERLAY C4HK0NI .3.01 

60661266 

GO  TO  180 

60601261 

360 

CONTINUE 

60661262 

Figure  12.  Subroutine  KORG1  Program  Listing  (Continued) 
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CALL  0VERLAY*4M«0N1  .4,01 
00  TO  190 
380  CONTINUE 

CALL  OVERLAY I4MK0NJ .5.01 
GO  TO  180 

WRITE  SYSTfW  LABEL*  On  NFJL*  for  CONTINUATION  BUNS 
400  CONTINUE 

CALL  FILE* JN. INSERT. LABEL! 

WRITE  (JN)  *(SMEA0*I.J>.J«I.2M,I*1,<»I 
CALL  fil.E(JN.INSERT«M«RK) 

WRITE  I IW.430I 

430  F0RmAt(Im1.//.1X.34H***  REFfRenCE  OF  SySTfm  lApf^s  •••,//> 
WRITE* IW.440M (SHE AO* I . J> . J«1 .?0» • I«I ,R» 

440  FORMAT  I/.IX.20A4. /I 
WRITE ( Iw.450> 

450  FORMATUMJ.//,lx.4iM«»»  LIST  OF  SrSTE*  LABELS  CREATED  IN  THIS. 
ISH  RU-!  •••.//» 

write* iw.440M *  ahead; i.j)  .j>i.?oi  . i*i.isys> 

STOP 

ENO 


K0RGI263 
K0RGI26* 
K0RG1265 
BORG 1266 
KORGI ?67 
KORGI 268 
K0RG126B 
KORG1270 
KORG127 | 
KORG1272 
KORG1273 
K0RG1274 
KORG127S 
K0RG1276 
KORG1277 
KORGI 278 
K0RG1279 
KORGI 280 
K0RG1281 
KORGI 202 
K0RG1283 
K0RG1284 


Figure  12.  Subroutine  KORGI  Program  Listing  (Concluded) 
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SUBHO’IT  INE  NAMfL  (NNS.VNS.DESS.UNIIS.NVO.VnO.OESO.UNITO.NNI  ,vni. 
1DESI.  INITI .OESSS.UNITSS.DFSOO,UNI)OO.OESI I.UNITI I  .NX*  .NRR  ,NUU  . 
2NXN.NPM.NUM.NX.NR.NU.NFLAO.mb.KB.Nh) 

PURPOSE  -  TO  READ.  PRINT  AND  UPDAIF  NAMELIST  0»TA  FOR  SYSTEMS 
ANAL  ISIS  -  A  F  KONAR  /  J  K  mAh£SH  -  TME  nONEYMFLL  INC 
DATE  WRITTEN  -  197s 


c 

SUBPROGRAMS 

calleo 

c 

DEBUG 

c 

HPo 

c 

f*le 

C 

c 

ARGUMFNTS  LIST 

c 

NNS 

1N/OUT 

c 

VNS 

IN/OUT 

c 

DESS 

IN/OUT 

c 

UNITS 

IN/OUT 

c 

NNO 

IN/OUT 

c 

VND 

IN/OUT 

c 

OESO 

IN/OUT 

c 

UN  I  TO 

IN/OUT 

c 

NNI 

IN/OUT 

c 

VN1 

IN/OUT 

c 

DEg  I 

IN/OUT 

c 

UNITI 

IN/OUT 

c 

DESSS 

c 

UNITSS 

c 

OESOO 

c 

UN  I  TOO 

c 

OESII 

c 

UN  I T 1 1 

c 

NX* 

c 

NAP 

c 

NUU 

c 

NX-* 

INPUT 

c 

NRm 

INPUT 

c 

NUm 

INPUT 

c 

NX 

INPUT 

c 

NR 

INPUT 

c 

NU 

INPUT 

c 

nflag 

INPUT 

c 

MB 

INPUT 

c 

KB 

OUTPUT 

c 

NB 

INPUT 

NUMBER  array-  FOR  STATE  NAMEL  16 
VARIABLE  name  ARRAY  FOR  STATE  NAMEL  17 
DESCRIPTION  ARRAY  FOR  STATE  NAMEL  18 
UNIT  ARRAY  FOR  STATE  NAMEL  19 
NUMBER  ARRAY  FOR  OUTPUT  NAMEL  20 
VARIABLE  NAME  ARRAY  FOR  OUTPUT  NAMEL  21 
DESCRIPTION  ARRAY  FOR  OUTPUT  NAMEL  22 
UNIT  ARRaT  for  OUTPUT  NAMEL  23 
NUMBER  ARRAY  FOR  INPUT  NAMEL  24 
VARIABLE  NAME  ARRAY  FOR  input  NAMEL  25 
DESCRIPTION  ARRAY  FOR  INPUT  NAMEL  26 
UNIT  ARRAY  FOR  INPUT  NAMEL  27 
STATE  DESCRIPTION  ARRAY  FOR  ALL  SUBSYSTEMS  NAMEL  28 
STATE  UNIT  ARRAY  FOR  ALL  SUBSYSTEMS  NAMEL  29 
OUTPUT  DESCRIPTION  ARRAY  FOR  ALL  SUBSYSTEMSNAMEL  30 
OUTPUT  UNIT  ARRAY  FOR  ALL  SUBSYSTEMS  NAMEL  31 
INPUT  DESCRIPTION  ARRAY  FOR  ALL  SUBSYSTEMS  NAMEL  32 


NAMEL  2 
NAMEL  3 
NAMEL  4 
NAMEL  5 
NAMEL  4 
NAMEL  7 
NAMEL  8 
NAMEL  9 
NAMEL  10 
NAMEL  11 
NAMEL  12 
NAMEL  13 
NAMEL  14 
NAMEL  15 
NAMEL  16 
NAMEL  17 
NAMEL  18 
NAMEL  19 
NAMEL  20 
NAMEL  21 
NAMEL  22 
NAMEL  23 
NAMEL  24 
NAMEL  25 
NAMEL  26 
NAMEL  27 


UN I T 1 1  INPUT  UNIT  ARRAY  FOR  ALL  SUBSYSTEMS 

MX*  NO  OF  STATE  ARRAY  FOR  ALL  SUBSYSTEMS 

NRR  NO  of  OUTPUT  ARRAY  for  all  subsystems 

nuu  no  of  input  array  for  all  subsystems 

NX*  INPUT  MAXIMUM  NUMBER  OF  STATES 

nbr  input  maximum  number  of  outputs 

NUm  INPUT  MAXIMUM  NUMBER  of  inputs 

NX  INPUT  NUMBFR  OF  STATES 

NR  INPUT  NUMBFR  OF  OUTPUTS 

NU  INPUT  NUMBER  OF  INPUTS 

NFlAG  INPUT  CONTROLS  ENTRY  POINT  IN  THE  SUBROUTINE 

MB  INPUT  .MAXIMUM  NO  OF  SYSTEMS  FOR  COMBINING 

KB  OUTPUT  NO  OF  SYSTEMS  FOR  COMBINING 

MB  INPUT  MAXIMUM  SYSTEM  NO  -  IMPLICIT  MODEL 

DIMENSION  NNSINXM) , VNS (NXM, 2 ) .DESS (NXM. 10) .UNITS (NXM, 4) 

01 MENS  ION  NNOINRMI .VNOINRM.?) ,DESO (NRM. 10) ,UN I  TO ( NRN.4 ) 

DIMENSION  NNIINUMI .VN| (NUM. 7) ,OESI (NUM. 10) .UNIT  1 (NUM. 4) 

DIMENSION  DESSS(NXM.lo.MB) • UNI TSS ( NXM.4.MB ) 

DIMENSION  OESOO(NRM.lO.MB) .UNI TOO (NRM. 4. MB! 

DIMENSION  DESI I (NUM. lo. MB) .UNITI I (NUM. 4. MB) 

DIMENSION  NXX(MB) .NBR (MB) .NOU(MB> 

DIMENSION  CARO(?0> 

dimension  vn(2).des(1o) .unit (4) 

COMMON  /INOUT/  IR.IW.IPRINT. INSERT. LOCATE. NULL, MARK (20). JN. JO. JS 
COMMON  /SYS/  SCODE.SDES(S) ,mSyS,HEAO(20> >NSYS(9) .SHEA0(9,?0) 
l.PMEAD(20> 

OAlA  MB8B.HMOOE*NLBFO.MLLBE/3h  • 4HMOOE * 4HL  F0.4HLL  E/ 

OATA  MRROR/4MPROR/ 

0ATA  mC.MSTAT .MOUTP.HINPU.HEND/ IHC.4HSTAT.4M0UTP.4HINPU.4HEND  / 
OATA  HXP,HRP,MUP,HP/2HX ( , 2KB ( ,2HU( , IM) / 

OATA  MB.HE«HUT.NT.MBLANK/|H  . I  ME. 2HUT • IHT.4H  / 


NAMEL  33 
NAMEL  34 
NAMEL  35 
NAMEL  36 
NAMEL  37 
NAMEL  38 
NAMEL  39 
NAMEL  40 
NAMEL  41 
NAMEL  42 
NAMEL  43 
NAMEL  44 
NAMEL  45 
NAMEL  46 
NAMEL  47 
NAMEL  48 
NAMEL  49 
NAMEL  50 
NAMEL  51 
NAMEL  S2 
NAMEL  S3 
NAMEL  54 
NAMEL  55 
NAMEL  56 
NAMEL  57 
NAMEL  58 
NAMEL  59 
NAMEL  60 
NAMEL  61 
NAMEL  62 
NAMEL  63 
NAMEL  64 


Figure  14.  Subroutine  NAM  EL  Program  Listing 
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OE*|n<  IS 

IFinFi  ag.eq.oigo  to  3ro 

Tr  (  ipo  int  .fo.fci  call  Of  pug  i  1  ,4hnamf.4ml 


•  o » o  • r k> 


C  RETRlryf  NARf  list  DATA  OF  SUBSYSTEMS  FOR  COMBINING  FROM  FILE 

C  NOAM 

C 

00  >0  1*1. ?0 
10  CARO( I l*nEAD( I  I 
00  I i'  N=1.KR 
NSY*NSYS IN) 

00  40  1*1.20 
40  MEAOI  IHSMEAOINSY.  I  I 

CALL  FILE! JN.LOCATF.Hf AOI 
RE  AO (  ININXN.NRN.NUN. 

1  INNS! 1 1 . (WNSI I. Jl . J*1 ,2) . 

2  (OESSM  .  J)  .  J*l  .  10)  •  (UNITS!  I .  Jl  .  J*l  .41  •  I  *1  .NANI  . 

3  INNOI 1  I . (VNOI I.J) ,Jrl,?l , 

4  (OESOl  I  .  Jl  .  J«1  •  |  01  .  (UNITOI I ,  Jl  .  J«| .4)  .  Ml.NRN)  , 

5  INN  I  I  1 1  .  (  Vi|  II1.JI.Js 1,2). 

6  IOES I  I  I . J) . J*1 . 10) . (UNIT  I  I  I .Jl . J*l .4) .I»l .NUNI 

IF  I IRw INT .F0.6 i CALL  OF RUG  I ?.4hNAMF . 4HL  ,0.0. IN) 

NXX IN) *NXN 
NRRINl *NRN 
NUUINi sNUN 

IF  TMF  SUBSYSTEM  Ic  AN  IMPLICIT  MODEL.  THEN  SET  NR  I *NRN 

IF(NSy.E0.NR)NRI*NON 
DO  60  1*1  .NXN 
00  SO  J* 1 . I  0 

50  DESSSl  I  .J.NMDFSSl  I  .  J) 

00  60  J* I  .4 

60  UNITSs(I.J.NMUNITSII.J) 

00  RO  1*1. NRN 
00  TO  Js 1*10 

70  OESOO 1 1 . J . N I *DFSO 1 1 . J l 
00  RO  J* 1.4 

RO  UNITOOII.J.NI *UNI TO  I  I . J) 

DO  10"  1*1. NUN 
00  90  J*1.10 

90  OESIIlI.J.N) *OFSI 1 1 . Jl 
00  10'.  J*  1.4 

100  UNIT I T 1 1 . J.N) *UNI T 1 (I.J) 

120  CONTINUE 

00  13..  1*1.20 
130  MEAD  1 1 l*CARO< 1 1 
380  CONTINUE 

IFIIPUINT.E0.6ICALL  DEBUG  I 3.4HNAME .4HL  .0.0.10) 

FORM  a  DEFAULT  NAMf  LIST  TARLE  FOR  THE  SYSTEM 

FORM  NAME  LIST  FOR  STATES 

DO  SO'  11*1. NX 
NNS I  1 ? I  *  1 1 

CNCOOF l4.426.VNSIII.il IHXR.II 
420  FORMAT ( a2. 12) 

VNSI I T .2) *HP 

UNITS(II.1)*m0LANK 

UNITS(II.2)*MRLANK 

UNITS(II.3)*HRLANK 

UNITS ( 1 1 .4 1 *WRL ANK 

J*0 

JFL AG=0 


NAMEL  6S 
NAMEL  66 
NAMEL  67 
NAMEL  60 
NAMEL  69 
NAMEL  70 
NAMEL  71 
NAMEL  72 
NAMEL  73 
NAMEL  74 
NAMEL  75 
NAMEL  76 
NAMEL  77 
NAMEL  78 
NAMEL  79 
NAMEL  80 
NAMEL  81 
NAMEL  82 
NAMEL  83 
NAMEL  84 
NAMEL  85 
NAMEL  86 
NAMEL  87 
NAMEL  08 
NAMEL  89 
NAMEL  90 
NAMEL  9 | 
NAMEL  92 
NAMEL  93 
NAMEL  94 
NAMEL  95 
NAMEL  96 
NAMEL  97 
NAMEL  98 
NAMEL  99 
NAMEL 100 
NAMEL101 
NAMEL 102 
NAMEL 103 
NAMEL 104 
NAMEL 105 
NAMEL 106 
NAMEL 107 
NAMEL 108 
NAMEL 109 
NAMEL 110 
NAMEL 111 
NAMEL 112 
NAMEL 113 
NAMEL 1 14 
NAMEL 115 
NAMEL 116 
NAMEL 1 !? 
NAMEL118 
NAMEL 119 
NAMEL 120 
NAMEL 121 
NAMEL 122 
NAMEL 123 
NAMEL 124 
NAMEL 125 
NAMEL 126 
NAMEL 127 
NAMEL 128 
NAMEL 129 
NAMEL 130 


Figure  14.  Subroutine  NAMEL  Program  Listing  (Continued) 
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r»no  on  n 


444 

CONTINUE 

NAMEU31 

If  <  J.I-.F  .5  >  GO  TO  46' 

NAMEL l 32 

If  (  JF1  AG. EO.  1  i  GO  rn  440 

PANEL  133 

j»j.  1 

NAMEL I 34 

If  (S0r'S(J>  .CQ.miilanKI  JFLAG*  |f|_AG.| 

NANEL 135 

OESSI ' I .JIsSOEGIJi 

NAMEL 136 

GO  TO  44c 

PANEL  137 

460 

CONTI’  U£ 

PANEL  138 

J*-.‘  1 

PANEL  1 3S 

0f  SS  <  ’  I  •  Jl  «MSTM 

PANEL  140 

J*  J»  1 

PAMEL141 

ENCOOr  (4.4  7(,.0cSS  (  T  I .  J1  i  he  ,  i  I  ,mh 

NAMEL142 

470 

FORMA*  <AI . I’.a 1 1 

PANEL  143 

480 

C0PTI\"lE 

PANEL  144 

J»J»1 

NAMEL 145 

If (J.GT.lJlOO  10  Mo 

PANEL  146 

OESS ( 1 1  •  Jl  *mRL*N*< 

PANEL  147 

GO  TO  488 

PANEL  148 

500 

CONTINUE 

NANELI49 

If  (IPr>INT.E0.4tCALL  OTMUG  <  4 . 4HPAMJ  .  4ML  .O.l.TOI 

PANEL  ISO 
NAMEL 151 

fOBM  > AH£  LIST  FOP  OUTPUTS 

PANEL  152 
PANEL  153 

pRJsp J~p3  1 

PANEL  154 

00  7C  11*1 .NR 

PANEL  155 

NN0(in*II 

NAMEL 156 

ENCODE  (4.4?0,w*JO(  I  I  .  1  )  >  viOO ,  j  J 

NAMELIST 

VPOl  I t . 21 *HP 

PANEL  158 

UPlTOH|.ll*MHLANK 

PANEL  159 

UMITOi I I • 2 1 *MML AN* 

PANEL  160 

UPIT0(1I«3|*mBLAN* 

NAMEL 161 

UPIT0»  11.41  »M«U.ANK 

PANEL  162 

J*0 

PANEL  163 

JfLAG=0 

PANEL  164 
PANEL  165 

FORM  >  AHE  LIST  ro»  TMf  IMPLICIT  MODEL  C9R0P  REMORSES 

PANEL  166 
PAMEL16T 

If Ul.LE.PPJIGO  TO  64n 

PANEL  168 

PJ*I l-PNJ 

PANEL  169 

OECOOf I4.619.DFS00 (NJ. 1 .MR) i IT  I. JTI 

PANEL  170 

610 

f 0»M AT 'A3,Al 1 

PANEL | 71 

ENr  TU  415. f.  SOI  1 1 . 1  >  )Hr ,  |T  1 

PANE!.  172 

615 

f  OP  A I  .  A  3 ) 

NAMEL 173 

ENCOO.  (4.615. Of SO <11. ’ll JTI ,M«H8 

PANEL  1 74 

OFSO 1 I I . 3 1 *HMOOE 

PANEL  175 

OESO 1 i I .41 *HLRf 0 

PANEL  1 76 

OESOI | I. Si *MLL«E 

PANEL  177 

DE501 1 1 .61 *MPPOP 

PANEL  1 78 

OESOI  U«T)*mRlank 

PANEL  1 79 

DESOI I  I .8 1 *HSL*P* 

PANEL  1 "0 

Of  SO  I  1 1  •  9 1  *MRL  ANK 

PANEL  101 

OESO ( 1 1 . i 0 1 »MML  AN* 

PANEL  182 

620 

OO  6?  J* 1*4 

PANEL  183 

UN I  TO  1 1 t . Jl *UNITOOlNJ. J.K9I 

PANEL  104 

GO  TO  7*0 

PANEL  185 

640 

CONTI  ;UE 

NAMEL I 86 

IfU.Gf.5lG0  TO  66» 

PANEL  187 

If  Ufl  AG.EO.nGO  TO  660 

PANEL  186 

J*J»1 

PANEL  189 

If tsors I J) .EO.MPIANK’ jelag*  If L AG* 1 

PANEL  190 

OESOI 1 1. J) *SOES  * Jl 

PANEL 19| 

GO  TO  640 

PANEL  192 

660 

CONT  I’lUE 

PANEL  193 

J«JM 

PANEL  194 

OESOI  1 1 .  Jl  smoiitp 

PAMEl 195 

j«j.  1 

PANEL  1 96 

Figure  14.  Subroutine  NAM  EL  Program  Listing  (Continued) 
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ENCODE  (4.4  2«j,0F  SOI  I  I ,  jl  )  hi  IT  .  I  1 
680  CONTINUE 
J*J»l 

IFIJ.r.T.lOIGO  10  7fl0 
0ES0I ! ! . J) »HBL*NK 
GO  TO  680 
TOO  CONTINUE 

If  UP'>INT.E0.6)CALL  OfRUG  <  5. 4MNANf  .4M>_  .0.0. IW) 

FORM  NAME  LIST  FOR  INPUTS 

00  POf  11*1 »NU 
NN1  (IP*II 

ENCODr (4. 420.VNIIII.il  > HUP. 11 

VNI <It.2>*MP 

UNIT  I  Ul.l»*MRLANK 

UNIT  I ( II • 2> »M«L*MX 

UNIT  1 1 1 1 *  3>  *HBLANK 

UNIT  I  I  11.4} *HBL ANK 

J«0 

JFlAG.O 
840  CONTINUE 

IFIJ.GE.SIGC  TO  86*} 

ir ( jelag.eo.i ir.o  to  aso 
j*j«  i 

IEIsDFSI J» .E0.HRLANK1 JFLAG* JFlAG*  1 
OESI ( I I« J)*SDES(J) 

GO  TO  840 
860  CONTINUE 
J*J*l 

OES!UI.J»«MINPU 

J«J«1 

ENCOOr  (4.470.  OESI  (II* JMHT. II,  HB 
880  CONTINUE 
j*j«I 

IF  I J.CT . I  0 ) GO  TO  9n0 
OESI  I  U.J*»MBLANK 
GO  TO  880 
900  CONTINUE 

IFUPUINT.E0.6>CALL  OFRUG  (6 ,4mNAME  .  4HL  .0.0.  I*> 

IF  (NFl.AG.EQ.0IGO  TO  1220 

COMBINE  the  name  list  DATA  of  SUBSYSTEMS  AND  OBTAIN  the  name 
OATA  FOP  THE  C0MB1NE0  SYSTEM 

1000  CONTINUE 
11*0 

00  1060  K*1,KB 
NXXKauXX(K) 

DO  1060  1*1 »NXXK 
11*11*1 
NNS  U 1 ) *  1 1 

ENCODE (4.420.VNS II T.l ) IHXP, 1 1 
VNS ( 1 1 .2) *HP 
00  I0’0  J*1 » 10 
1020  OESSIIt,J)*oeSSSU.J,K) 

00  1040  J* 1 .4 

1040  UNITSUI*J>*UNITSS(I*J.MI 

READ  NAME  LIST  DATA  FOP  OUTPUTS  OBTAINABLE  FROM 
INTERCONNECTION  EQUATIONS  WRITTEN  ON  SCRATCH  FILE  JS 
BY  SUBROUTINE  SIMK 

RE AO  I  IS. 160 1  CARD 
IFICAROIl) .NE.HOUTPIGO  TO  M20 
1050  CONTINUE 


N4MEL 1 97 
NAMEL 1 98 
NAMEL |99 
NAMEL200 
NAMEL201 
NAMEL202 
NAMEL203 
NAMEL204 
NAMEL20S 
NAMEL206 
NAMEL207 
NAMEL208 
NAMEL209 
NAMEL210 
NAMEL211 
NAMEL212 
NAMEL213 
NAMEL214 
NAMEL215 
NAMEL216 
NAMEL217 
NAMEL218 
NAMEL219 
NAMEL220 
NAMEL221 
NAMEL222 
NAMEL 223 
NAMEL224 
NAMEL225 
NAMEL226 
NAMEL227 
NAMEL228 
NAMEL229 
NAMEL230 
NAMEL231 
NAMEL232 
NAMEL233 
NAMEL234 
NAMEL235 
NAMEL236 
NAMEL237 
NAMEL238 
LIST  NAMEL239 
NAMEL240 
NAMEL241 
NAMEL242 
NAMEL243 
NAMEL244 
NAMEL245 
NAMEL246 
NAMEL247 
NAMEL248 
NAMEL249 
NAMEL250 
NAMEL251 
NAMEL252 
NAMEL253 
NAMEL254 
NAMEL255 
NAMEL256 
NAMEL257 
NAMEL2S8 
NAMEL259 
NAMEL260 
NAMEL261 
NAMEL262 


Figure  14.  Subroutine  NAMEL  Program  Listing  (Continued) 
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reach  IS' IC60I I  I .«. I 
EOPMAT  <3I2> 

IE  U  I  ,EQ»" I t  GO  TO  1110 
NNOUtt*Il 

ENCODE <4.420. VNO( I! « 1 ) IMRO. 1 1 

VNO ( 1 1 *2) *HP 

00  10*0  J*1.10 

OESOI  t I • J1 *OESOO< I . J.k 1 

DO  It  0  J*1.4 

UN  I  TO l 1  I  *  Jl *UN [ TOO ( I .  J.K) 

GO  TG  1 #50 
CONT  P.UE 

IE  (  IP->!NT.EQ.6)CAU_  DEBUG < 7 .4hNAM£ . 4HL 


.0.0.  HO 


READ  NAME  LIST  DAT*  EOP  INPUTS  OBTAINABLE  EROH 
INTERCONNECT  I ON  EQUATIONS  WRITTEN  ON  SCRATCH  EILE  JS 
BY  SUBROUTINE  SINK 

REAO ( J5 . 1 60) CARD 

IE (CA»D( I ) .NE.HINPn) GO  TO  1320 

CONTINUE 

READ (  JS. 1060) I  I «K. I 
IE(II.EQ.-l)GO  TO  1170 
NNKIT*»n 

ENCODE (4.420. VNI Ul.lt  I  HUP. 1  I 
WNI ( I t .2) *HP 
DO  1UO  J*1.10 

DESI  (  U.J)«DESm  I.J.Kt 

00  11*0  J«1.4 

UNI T I ( 1 1 »  J) aUNIT II ( I « J.K ) 

GO  TO  1120 
CONTINUE 

READ (  IS. 160 ) CARD 
IFICAuOUt.NE.HENOlGO  TO  1320 


READ  NAHE  LIST  DATA  fPOM  CAPOS 
CONTINUE 

IE  (IPpINT.E0.6I  CALL  0EBUG<9,4HNAME.4HL  .0.0. IN) 

REAOUP.160)CARD 

EORHAT (20 A*  I 

IE (CAPO < I > .EO.HENO) GO  TO  1340 
IE(CAPDUI  .EO.HSTADGO  TO  1240 
IEICAPOU ) .EO.MOUTPtGO  TO  1260 
IE  (CAPOUt  .EO.HINPlDGO  TO  1300 
GO  TO  200 

READ  NAME  LIST  DATA  EOP  STATES 

CONTINUE  ,  ,  . 

REAOI TR.280INNNN. < VN < J) • J»l .2 ) « (OES < J) * J»1 » 10 > . (UNIT < J) » J«l »4) 
EORHAT ( I2.6X.2A4.4X.10AA.4X.4A4 ) 

IF(NNnN.EQ.-1)GO  TO  1220 
NNS(N‘|NN)*NNNN 
DO  12u5  J»1.2 
VNS ( NUNN . J ) ■ VN  <  J ) 

00  12P0  J*1.10 
DESS (NNNN. J) »OES ( J) 

DO  12S5  J-1.4 

UNI TS (NNNN . J) »UN I T ( J) 

GO  TO  1240 

READ  NAME  LIST  DATA  EOR  OUTPUTS 
CONTINUE 

REAO(  TP. 280) NNNN. ( vN( J) . J«1 .2) . (0ES(3) . J»1 . 10)  •  (UNIT! J)  * J«l»4) 


NAMEL263 

NAMEL264 

NAMEL26S 

NAHEL266 

NAMEL267 

NAMEL26S 

NAMEL269 

NAHEL2T0 

NAHEL271 

NAMEL2T2 

NAHEL2T3 

NAMEL274 
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NAMEL276 

NAMEL2T7 

NAMEL2TS 

NAHEL279 

NAHEL280 

NAHEL201 

NAHEL202 

NAMEL203 

NAHEL264 

NAHEL205 

NAHEL2S6 

NAHEL287 

NAMEL280 

NAHEL289 

NAHEL290 

NAHEL291 

NAHEL292 

NAHEL293 

NAHEL2Q4 

NAHEL29S 

NAMEL296 

NAHEL297 

NAMEL296 

NAMEL299 

NAHEL300 

NAHEL301 

NAHEL302 

NAMEL303 

NAHEL304 

NAMEL305 

NAHEL306 

NAMEL307 

NAHEL308 

NAMEL309 

NAMEL310 

NAMEL3U 

NAMEL312 

NAHEL213 

NAHEL314 

NAMEL315 

NAMEL316 

NAMEL317 

NAHEL318 

NAHEL319 

NAHCL320 

NAHEL321 

NAHEL322 

NAHEL323 

NAHCL324 

NANCL32S 

NAHEL326 

NAHEL327 

NAMEL328 


Figure  14.  Subroutine  NAMEL  Program  Listing  (Continued) 


.  ■.  ,  ,  . . .  , . -■  J  -  B  M  - 


IF (NNuN.EO.-  1  )  GO  Tn  122C 
NNO(N‘lNN)*NNNN 

00  12*.s  J=|.2 
1265  VN0(NnNN. J) *VN( Jl 
00  12*0  J*1 .  10 
1270  ofsoimnnn. jt *oes i ji 

00  1 2  75  J=1.4 

1275  UNIT 0 ( NNNN.  J I =UN I T ( J > 

00  TO  1260 
C 

C  SC*D  NAME  LIST  DATA  EOS  INPUTS 
C 

1300  CONTINUE 

BE  AO  I  |B  *280  )  NNNN  «  (  VN  (  J )  .  J  *  1  , 2 )  »  ( OE  S  (  J I  .  J*  1  .  I  0  )  .  (  UN  I  T  1  J I  .  J*  1  .4  I 
IE (NNMN.EQ.-l >00  TO  1220 
NNI (NnNN) *NNNN 
00  12*5  J*1 .2 
1265  VN | (NNNN • J ) * VN ( J) 

00  12^0  J*1.10 
1240  DCS  I  (i  INNN.  J ) *QES  <  J  * 

00  1245  J*1.4 
1295  UNI  T  I  ( NNNN  •  J )  *UN  I  T  (  J  > 

GO  TO  1360 
1340  CONTINUE 

JE(IPb1NT.E0.6>CALl  0FRuG(9.4*NAME ,*ml  .0.0. IX) 

C 

C  PSINT  HEADING  ANO  N4Mf  LIST  OATA 
C 

IT (IPaiNT.LT.?)GO  TO  1540 
CALL  hPR(MEAO.IX) 

XBITE<9.1360)NX.NP,NU 

1360  FORMAT!//. IX, 1«HN(JmBER  OE  STATES  *.I2»//,|A» 

llBHNUvRCS  OE  OUTPUTS*. 12.//. IX.18MNUM8ER  OE  INPUTS  *«I2.//> 

XR I T£ ( J  X  •  1 380 ) 

1380  FORMAT (//.20X.23M***  NAME  LIST  TABLE  •••»/> 

WRITE(IW.14«0> 

1400  FORMAT!/. IX. BMVARUBLF.6M  N*ME  ,6x,13h  DESCRIPTION  . 

13IX.6*  UNIT  ./> 

IE(IPSINT.EQ.6)CALL  DEBUG ( U .4MNAME .4HL  .0.0. IX) 

C 

C  PRINT  NAME  LIST  OATA  FOR  STATES 
C 

XRITE ( IX. 1460> 

1460  EORMAT (/.IX.6M5TATF  */> 

WRITE (IX. 1460) (NNS ( 1 1 . < VNS (I*J)«J*)*2)»(DESS(I«J) .J*l«10> . 

I  (UNITS* I. J) » J*1 »4> . I*1»NX> 

1460  EORMAT  (IX,  1 2 , 6X  ,  2A4 . 4X  .  1  0A4 ,4X  .4A4  ) 

C 

C  PRINT  NAME  LIST  OATA  FOR  OUTPUTS 
C 

WRITE ( IX. 1500 ) 

1500  FORMAT </» IX. 6N0UTPUT./) 

WRITE ( IX. 1489 > ( NNO ( 1 > . ( VNO ( T » J> . J* l . 2 ) . (DESO ( I . J > , J*»  » 1 0 >  . 

1  (UNIT0(I.J)*J*l*4>.I*l*NR) 

C 

C  PRINT  NAME  LIST  DATA  FOR  INPUTS 
C 

WRITE* IX. 1520) 

1520  FORMAT (/« 1X.6M INPUT  ./> 

WRITE (IX. 1460) (NNI < I ) . ( VNI ( I  *  II . J* 1 . 2 ) . (DES I ( I , Jl . J* 1 . 1 0) . 

I  (UNITI ( I . J) . J*1 .4) . 1*1  »NJ) 

1540  CONTINUE 

IE(IPPINT.EO.t) CALL  DEBUG (11.4HNAME.4ML  .0.0. IW) 

C 

C  WRITE  NAME  LIST  DATA  ON  DISK  FILE 
C 


NAMEL 329 

NAMEL  330 

NAMEL331 

NAMEL  332 

NAMEL333 

NAMEL334 

NAMEL335 

NAMEL336 

NAMEL337 

NAMEL338 

NAMEL  339 

NAMEL340 

NAMEL34 1 

NAMEL 342 

NAMEL343 

NAMEL 344 

NAMEL 345 

NAMEL 346 

NAMEL  347 

NAMEL348 

NAMEL349 

NAMEL350 

NAMEL3S1 

NAMEL352 

NAMEL353 

NAMEL3S4 

NAMEL 355 

NAMEL3S6 

NAMEL357 

NAMEL3S8 

NAMEL3S9 

NAMEL360 

NAMEL361 

NAMEL362 

NAMEL363 

NAMEL364 

NAMEL365 

NAMEL366 

NAMEL367 

NAMEL368 

NAMEL369 

NAMEL370 

NAMEL371 

NAMEL 372 

NAMEL373 

NAMEL374 

NAMEL375 

NAMEL376 

NAMEL377 

NAMEL378 

NAMEL379 

NAMEL380 

NAMEL381 

NAMEL382 

NAMEL383 

NAMEL384 

NAMEL385 

NAMEL386 

NAMEL387 

NAMEL  388 

NAMEL3S9 

NAMEL390 

NAMEL39 1 

NAMEL392 

NAMEL 393 

NAMEL394 
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CALL  MLEUN,  INSERT. HEAD) 

WHITE! JNINX. NR. NU« 

1  <NNS( I > . <VNS < I . J) . J=1 .?> . 

?  (DESS! ! • J)  •  J«l  . 10) . (UNITS ( ! • J> . J»l *41 • IM.NX)  . 

3  (NNO< I  1 . (VNO( I » J) . J*l .2) • 

4  (OESOU . J) . J«1 « !•>  «  <UNlTO< I . Jl « J*l .4) . J«1 .NRI . 

3  (NNl (I) . (VNI (I.JI . . 

6  (0ES1 ( I . J> . J»l • 10) * (UNIT  I ( I  * J) . J«1 .4) . I«1 ,NU) 

CALL  FILEIJN.INSERT.MARK) 

ir (IPRINT.E0.6ICALL  OEBUG ( I ?,<.HNAM£ . 4HL  .0.0. IW> 

RETURN 

C 

C  PRINT  ERROR  HESSEGF 
C 

2M  CONTINUE 

WRITE ( IW.220) 

22#  FORMAT (1H1.//.1X. 37HOAT  A  CONTROL  CARD  S°EC  IF IC AT  I  ON  ERROR  I 

STOP  ill 
1 324  CONTINUE 

WRITE  < IW.1330) 

1330  FORMAT  < IMl «//* 1 A . 38MERROR  IN  DATA  PROVIDED  BT  SIMM 
STOP  III 
ENO 


NAMEL395 
NAMEL396 
NAMEL397 
NAMEL39B 
NAME1139R 
NAMEL400 
NAMEL401 
NAMEL402 
NAMEL403 
NAMEL404 
NAMEL405 
NAMEL406 
NAMEL407 
NAMEL408 
NAMEL409 
NAMEL4 1 0 
NAMEL411 
NAMEL412 
NAMEL413 
NAMEL414 
NAMEL41S 
NAMEL416 
NAMEL417 
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Start 


Initialize  the  Dimensions 
and  Check  for 
Dimension  Error 
_ (Call  SIMKl ) 


Compute  Simulation 
Matrix  F 
(Call  SIMK1) 


Compute  State  Space 
Data  (A,  B,  C,  D) 
from  Simulation 
Matrix  F 


Form  the  Name 
List  Data  and  Write  on 
NDATA  File 
Call  NAMEL) 


Write  the  State  Space 
Data  on  QDATA  File 
(Call  ODID) 


Return 


Figure  15.  Subroutine  STAMK1  Flow  Chart 
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STANK  1  3 

2MAXN.MAXH. 
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STAMKI  4 

c 

STAMKI  5 

c 

PURPOSE  - 

TO 
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STAMKI  6 
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STAMKI  7 
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c 

M 

w  array  for  computing  simulation  matrix 

STAMKI 24 

c 

F 

simulation  MATRIX 

STAMK125 

c 

U 
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STAMKI 26 

c 

A 

IN/OUT 

STATE  TRANSITION  MATRIX 

STAMKI 27 

c 

8 

IN/OUT 

CONTROL  INPUT  MATRIX 

STAMK12B 

r- 

C 

IN/OUT 

state  OUTPUT  MATRIX 

STAMK129 

c 

0 

IN/OUT 

CONTROL  OUTPUT  MATRIX 

STAMKI 30 

c 

NNS 

IN/OUT 

number  array  for  state 

STAMKI 31 

c 

VNS 

IN/OUT 

VARIABLE  name  ARRAY  FOR  STATE 

STAMKI 32 

c 

OESS 

IN/OUT 

DESCRIPTION  ARRAY  FOR  STATE 

STAMKI 33 

c 

UNfTS 

IN/OUT 

UNIT  ARRAY  FOR  STATE 

STAMKI 34 

c 

NNn 

IN/O0T 

numbfR  array  roR  output 

STAMK135 

c 

VNO 

IN/OUT 

VARIABLE  NAME  array  for  output 

STANK 136 

c 

DESO 

IN/OUT 

DESCRIPTION  ARRAY  for  OUTPUT 

STANK 137 

c 

UN!  TO 

IN/OUT 

UNIT  ARRAY  FOR  OUTPUT 

STANK 138 

c 

NNt 

IN/OUT 

number  array  eor  input 

STANK 139 

c 

WN! 

IN /OUT 

VARIABLE  name  APRAY  FOR  INPUT 

STANK 140 

c 

DESI 

IN/OUT 

DESCRIPTION  array  FOR  INPUT 

STAMKI41 

c 

UN !  T  I 

IN/OUT 

UNIT  ARRAY  FOR  INPUT 

STANK 142 

c 

MAIN 

INPUT 

MAXIMUM  ROW  DIMENSION  FOR  SIMULA  MATRIX  F 

STAMK143 

c 

MAIM 

INPUT 

MAXIMUM  COLUMN  DIMENSION  FOR  SIMU  MATRIX  F 

STANK  144 

c 

NX*. 

INPUT 

MAXIMUM  NUMBER  OF  STATES 

STAMK145 

c 

NR*. 

INPUT 

MAXIMUM  NUMBER  OF  OUTPUTS 

STANK  146 

c 

NU*. 

INPUT 

MAXIMUM  NUMBER  OF  INPUTS 

STAMK147 

c 

NYm 

INPUT 

MAXIMUM  DIMENSION  FOR  InTERCONN  EQUATIONS 

STAMK148 

c 

MB 

INPUT 

MAXIMUM  NO  OF  SUBSYSTEMS  FOR  COMBINING 

STAMK149 

c 

MSI 

INPUT 

MAXIMUM  DIMENSION  FOR  SCRATCH  ARRAY  SI 

ST  AMK ISO 

c 

MS? 

INPUT 

MAXIMUM  OIMENSION  FOR  SCRATCH  ARRAY  S2 

STAMKlSl 

c 

MS  0 

INPUT 

MAXIMUM  DIMENSION  FOR  SCRATCH  ARRAY  S3 

ST AMK 152 

c 

MS'. 

INPUT 

MAXIMUM  DIMENSION  F0R  SCRATCH  ARRAY  S4 

STAMK1S3 

c 

NB 

INPUT 

MAXIMUM  SYSTEM  NO  -  IMPLICIT  HOOEL 

STAMKI 54 

C  STANK  155 

COMMON  /INOUT/  IR.lW.lPRINT, INSERT. LOCATE. NULL. NARK120>*JN»JO*JS  STANK 156 

CONHON  /SYS/  SC00E.SDCSI5) .wSYS.MEAO<?0) .NSYSCo) .SHEAD19.20)  STANK157 

1 .PHEAn ( 20  >  STANK  158 

DIMENSION  VIMAXN) .WlMAXMl ,F (MAXN.MAXM)  STANK1S9 

DIMENSION  U(NUM)  STANK160 

OIMENSION  A(NXM.NXM) .R(NXM.NUM) .CINRM.NXM) .DINRM.NUN)  STANK161 

DIMENSION  NNS(NXM) .VNSINXM,?) .OESS ( NXW, 1 0 1 .UNITS INXN. 4)  STANK 162 

DIMENSION  NNO(NRM) .VNOINPM.?) .DESO < NRN. 10 > .UNITO (NRN. A)  STANK  163 
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Figure  16.  Subroutine  STAMKI  Program  Listing 


84 


rt  r>  n  tji  —  n  r>r>  rt  rt  n  n  n  rt  rt 


COMmo  /SCI/  SI  (  I) 

0  I  Mf  N>  I  ON  DFSSS(NX*..1').M6)  ,jN|TSS(NXM.4.Mm 
01  MENS  I  ON  DF $00  ( N°‘<  «  1  :l.Mrl>  .  IN  I  TOO  (  NRM .  4  .MR  I 
DIMENSION  Of  SI 1 INUm. 1 T .MM) .  INI T 1 1  (NUM.4.MBI 
DIMENSION  MAX (MB) «NRR (MO) ,NuU I  MB! 

IF  ( IP-MNT.EO.SlCALC  0F«UG(1.4mSTAm,4h<1  .I.O.TM) 

1.1*1  *  L?*l  l  *N*M#MO«l  fi  %  l3*L?*NXM»MR*4  t  L4*L  1*NRM»M9*  10 
LS«L4.NPM»MM*4  «  L4*LS»NU'4*vB«  111  t  l7*L6»NUM«M“»4 
L8*L7.M8  t  l9»LA‘MB  S  L10=LQ«“« 

IF (l 1  .GT.MS1I 

|  C  ALL  OE»»M(l10.MS3.MS3.MS4.msi .MS?  •  MS3 . MS4 . 1 . 0. 4HST AM .4HK 1  . IK) 

IF(  IP«INT.E0.4IC*U.  Of BUGI2.4H$TAM,4M<)  .1.0.  IM) 

NR  1*0  *  NR?*0  <  NR3*0  J  NUlsO  *  NU?*0  *  NU3»0 

NXA*9  S  NRA*9  %  NU A *0 

EpSF» i .0E-30  \  T *0 . 9  *  NFL AO*o 

IF ( ( IoPINT.fO.3l  .00. I Ip»INT.GT .4) >C*L.  hP9 f hE AP . I  A > 

INITIALIZING  CALL  TO  SUBROUTINE  SI  MSI 
IN  I  T* 

NX»0  4  NY *C  %  Np*3  I  NU*0 
Nl*l  «  N?*N1«NX  *  n3*N?»NY  *  U4«N3.NX 
CALL  SINK  KM  INI  )  «M  (N2  I  .  M  (N3)  •  *  <  N4  )  •  V  C  Ml )  .  V  ( N?>  •  V  ( N3  >  • 
INA.NY.NR.NU, IN  IT.  T.  MS l .MS?«MS3.MS4> 

IF  <  IPOINT.E0.6ICALL  0EBUG13.4hSTAM.4MS1  .1,0. 1*1 

CHECK  FOR  DIMENSION  EOROR 

INI T  *  1 
M*>»N».NY»NU 
N»NX  »  '  Y  »NR 

IF ( INX.GT.NXM) .OP. INR.C.T.NPM) .OR.  (NU.5T.NUM1 .OR, (NY.6T .NYM1 1 
ICALL  Nf ROMS (NX .NP . N1 J . N Y . N AM ,NPM . NUM .NYM.1,0. 4H5T AM . 4hS I  . IM1 
N 1  *  1  «  N2*NKNX  S  N3*N?*NY  »  n4»N3*NA 
DO  101  J*1.M 
Cl  W ( J I  * ’ . 

DO  501  J*l.M 
Ml J>*l  . 

CALL  SfMKl (MINI  I «M(N2» .M(N3l »M(N4l »V(N| I *V(N?) «V(N3) * 
1NA.NY.NR.NU. INIT.T.MSl . MS?. MS3.MS4 1 
M(J)*'  .0 
DO  SOI  1*1. N 
•  1  fll.JUVdl 

COMPUTE  THE  SIMULATION  MATRIX 

NV«NA.NY 

IFdPyiNT.EO.SICALL  MORS  (F  ,  **A aN.MAAM,  N,  M.  T.4HSIM  1 
DO  SI  1*1. NV 
00  52  J*1.NV 

52  MI.Ji*-F(I.J> 

51  F(I,I)*F(I»II*I. 

CALL  TDINVRI ISOL. IDSOL.NV.-M.F.MAXN.SOUM.DET* 

IP*NV.l 

IE*NV»NR 

JB*I8 

JE«M 

DO  S3  I=I«.IE 
DO  S3  J*JB* JE 
DO  53  K=1.NV 

53  F(I,J**F(I,J)»F(I,k)*F(K.J) 

00  53  1*1. IE 

DO  53  J*i.JC 

IF(ABs(F(I.J)I.LE.EpSFI  Fd.JI  *  0.0 
530  CONTINUE 

IF ( IPOTNT .F0.6I CALI  MpRS  < F , MAXN. MAAM. \|. M» T . 4HS TMI ) 


STAMK165 
ST  AMK 1 66 
ST  AMS  167 
ST  AMK 168 
STAMK169 
ST  AMK  170 
ST  AMK 1 7 1 
ST  AMK 172 
ST  AMK 173 
STAMK174 
ST  AMK 1 75 
ST AMK 176 
ST  AMK 1 77 
ST  AMK 1 78 
ST  AMK 1 79 
STAMK180 
ST  AMK 181 
ST  AMK 182 
STANK  183 
ST  AMK 184 
STAMK185 
STAMK186 
ST  AMK  187 
ST AMK 188 
ST  AMK 189 
ST  AMK 1 90 
STAMK191 
ST AMK 192 
STAMK193 
ST AMK 194 
STAMK195 
ST  AMK 196 
STAMK197 
STAMK198 
STAMK199 
ST  AMK 1 00 
STAMK101 
ST  AMK 102 
STAMK103 
STAMK104 
ST AMK 105 
STAMK 1 06 
STAMK107 
STAMK 1 08 
STAMK109 
STAMKUO 
STAMK 111 
STAMK  112 
ST  AMK 113 
STAMK  114 
STAMK  115 
STAMK116 
ST  AMK 117 
STAMK118 
ST  AMK 119 
STAMK120 
ST  AMK 12 1 
ST  AMK 122 
STAMK123 
STAMK124 
ST  AMK 125 
STAMK126 
STAMK 127 
STAMK 1 28 
STAMK129 
STAMK130 
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c 

c  FORN  X.8.C.D  mxtR I C£S 

c 

J1*NV.| 

J2«MV.NX 
J3*J1 .NX 
J4*J?.NU 
I  I *NV  » 1 
I2»NV.NR 
DO  60>1  1*1. N* 

DO  60fll  J*JI«J? 

JJ«J-  )' «1 
6001  A  I J  *  J  l 

DO  6O.1,  1*1. NX 

00  60' ?  J*J3.J4 
JJ*J-  0*1 

600?  Rll.jjuril.jl 

DO  60-3  1*11*1? 

I ! *!• t 1 ♦ 1 

DO  6 O^O  J-«J|*J? 

JJ*J-Jl«l 

6003  C(II.JJ)*FI1.J) 

DO  60..4  1*11.1? 

11*1-110 

DO  60'  4  J*J3.J4 
JJ*J- J3«l 

6004  01 11*  JJ)»M  I.J> 

1F«IP«MNT.E0.6>CALL  Of  BUG  (4 ,4mST  AN,4H<I  .1.0.  I*) 

C 

C  RE AO  AND  UPDATE  NAME  LIST  DaTa 

C 

KB.NM4X 

CALL  HAMEL (NNS.VNS.DESS«UN1tS*NN0. VNO.DESO.UNItO.NNI *VNI * 
IDESI .UNIT  1 .51 (L11.S11L?) .SI IL31.SI 1L4I.S1 IL51.S1 (L61 * 

?S1  (LT)  .SI  <L8>  .S|  (LQI  .NAM .NRM. NUN. NX  »N*.NU.NFLAr,.NB.KB.NB> 
1F1IPoINT.E0.61C  ALL  Of  HUG  (5«4rtST  AM.  4H<  I  .1.0*10 
C 

C  WRITE  CUADRUPLE  DATA  ON  F JLF  OOATA 
C 

10*0 

NFLAf.*? 

NXA*NX  S  NRAsNR  1  NUAsNU 

CALL  ooioia.r.c.o.a.nx.nr.nu.nxn.nrn.num.nxa.nra.nua. 

1NR1.N»?.NR3.NU1.NU?.NU3.T.  I0.JPR1NT.IA. JO.HEAD.HARF. 
?LOCATf.NULL. INSERT. MFL AG) 

IF11PPINT.E0.6)CALL  DEBUG(6.4mSTAW.4h<1  .1.0. TW) 

return 

END 


STANK131 
STANK  1 3? 
STANK  J  33 
STANK  1 34 
STANK l 35 
ST  ANK 136 
STANK  137 
STANK  1 38 
STANK  1 39 
ST  ANK 140 
STANK  141 
STANK  142 
STANK  143 
ST  ANK 144 
ST  ANK 145 
STANK  14b 
ST  ANK 147 
ST  ANK 148 
STANK149 

stank  iso 

STANK  151 
STANK1S2 
STANK  153 
STANK  154 
STANK15S 
STANK  156 
STANK157 
STXNK 158 
STANK  1 59 
STANK  1 60 
ST  ANK 161 
STANK162 
STANK  163 
STANK  164 
ST  ANK 165 
ST  ANK 166 
ST  ANK |67 
STANK168 
ST  ANK 169 
ST ANK 170 
STANK171 
STANK  172 
ST ANK 173 
STANK  174 
STANK  175 
ST  ANK 176 
STANK  177 
STANK  178 
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Enter 


Initialize  and 
Read  Simulator 
Deck  Data  and 
Load  Equations 
Data  from  Cards 
or  VDATA  File 
and  Compute  the 
System 


Set  Up  Riaid 
Body 

Differential 

Equations 


Set  Up 

Bending  Mode 
Differential 
Equations 


Return 


Sensor 

Equations 


Return 


n  n  n  n  n  n 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 


SURGUT  INK  SI  MX  l  I  xr>OT  ,  Y  ,  X  ,t|,  ADOR  .  7L  »  9L  .NX  ,  NY  .NR,  NU,  INHj  T  • 
1  MS  I  ,MS?.MS3,MS4) 

PURPOSE  -  TO  RF AD  SIMULATOR  matrix  data  from  lsa  and 
TO  IMPLEMENT  STANDARD  ISA  EQUATIONS 

ANALYSIS  -  A  F  KONAP  /  J  K  wAHfSM  -  HE  HONFYWFLL  INC 
DATE  Y  P I T  T  F  N  -  MAY  1975 

SUBPRnGRAMS  C At  l  FD 
OFHUG 
INPT1 
MP*s  1 

APGIJMFNTS  LIST 


XOOT 

ARRAY  FOR 

STATE  DERIVATIVES 

r 

ARRAY  FOR 

Y  EQUATIONS 

X 

ARRAY  FOP 

STATES 

u 

ARRAY  for 

fxternal  inputs 

XDOTL 

Output 

array  for 

DERIVATIVE  OF  STATE 

YL 

OUTPUT 

array  FOR 

Y  EQUATION  VARIABLES 

RL 

OUTPUT 

ARRAY  FOR 

EXTERNAL  responsf  variables 

NX 

OUTPUT 

NUmRfR  OF 

STATES 

NY 

OUTPUT 

NUMRFR  OF 

Y  EQUATIONS 

NR 

OUTPUT 

NUMBER  OF 

OUTPUTS 

NU 

OUTPUT 

NUMRFR  OF 

INPUTS 

IN I  T 

INPUT 

INITIAl  MODE  FLAG 

T 

OUTPUT 

sample  timf 

OTHER  PAPAMFTFPS  APF  DEFINED  IN  CALLING  PROGRAM 

01  MENS  I  ON  XDOT (NX) ,Y(NY) ,X(MX) ,LMNU) .XDOK(NX) . YL t NY ) . RL t NR ) 

DIMENSION  STATEMENT  FOP  ThE  MATRIX  DATA  FROM  LSA 

COMMON  / 1 NOUT /  I R ,  (  W ,  IPRINT, INSERT.  LOCATE, NULL .MARK (20  I . JN, JQ,  JS 
REAL  LVPO.LVPl .LRO.LRl «LUFO  »Luf.  1 ,LUE?,LDELSO»LOELS1  .LDELS2 
REAL  LUGO • LUG  1 .LVGD.LVG1 .LMG0.LW61 

COMMON  /SC?/  VPVPO (6.6) . VPVul (6,6)  ,  VRRO (6,3) .7RR1 (6,3) 

1  .VPUFO  (6.30)  .VPUF1  (6. 10)  .VPi|E?(6,30)  ,  VPQtlSO  ( 6, 3) 

? ,  VPDEL  S 1  (6,3)  .VPDEl  S?  ( 6, 3)  .  vPuGO  (  6. 3 )  .VPIJG1  (6,3) 

3. VPVG0 (6.3) .VPVGl (4,3) « VPVGn (6,3)  .VPVGl (6,3) 

4. RVP0I  x.6)  . R VP  1  (3,*)  ,PRO  (3,11  ,9R  1(1.3) 

5. UEVPO ( 30.6) ,UE VP  1 ( 30.6) . UERO (30,3) 

6. UFRI  (  30, 3)  ,IIEi)F0  (10. 10)  .UEUEl  (30.30)  ,UEUF2(  30.301 

7. UEDELS0  (30.3)  .UEDELS1  (  30, 1)  .IIEDELS2  (  30.3) 

ft .UFUGO  (30.3)  ,  IJEIJG 1  (30,3)  .UEVGOOO.I)  .UEVG1 (30.1) 

9.UFVG0 ( 30.3) .UEWGl (30,3) ,TVoO(9,6)  ,TV°1  (9.6) ,TR0(9,3> 

A.TRl (9,1) .Tt)EO  19.30) , TUF 1 ( 9 , 30 ) , TUF2 ( 9, 30 ) 

R.TDELSO (9.3) .TDELS1 (9,31 ,T0ELS?(9,3) . TllGO (9,3) .TUOl (9.3) 

C.TVGO (9,3) .TVG1 (9.3) ,  TVGO (9, 3 1 , TUG l  (9,1) ,IVP0 ( 1 S . 6 ) *L VP1 (1 5.6 > 
O.LROUS,  3),  LR  1(15.1)  .  L  UE  0  ( 1 S.  10 )  .UlEl  ( 1 5. 10)  ,LUE2(  15,30» 

E .LDELSn ( IS. 3) .L0ELS1 ( 15.3) .L0ELS2 ( 1  5, 3) .LUGO  I  IS, 3) .LUG1 (IS. 3) 
E.LVGO  ( 15.3)  .LVC.1  (  1S.3)  .LWGO  (15. 3), l  VG 1(15.3) 

G. RAND  I  NO (1.1) .unity (30. 30) 

DIMENSION  JHEADf l?n)  ,  T DRM ( J ?0) , IDCMl 120) 

DIMENSION  ICAPD(8)  ,  IHEAD(A) 

DIMENSION  SC  <  l  > 

EQUIVALENCE  ( SC ( 1 ) . VPVPO ( I , 1 ) ) 

IE ( IPRINT .EQ.6ICAI L  DFBUGU.4MSIMK.4Hl  .1.0. IV) 
lE(INIT.NE.O)  GO  To  ISO 

INITIALIZE  ANO  SFT  max  DIMENSIONS  FOR  SIMULATOR  matrix  data 
!END= 1 OHEND 

NXVP  =  0  1i  NXB  =  0  S  N  X  UE  =  0 


SJMK1 

2 

SIMKl 

3 

SIMM 

4 

SIMM 

5 

SIMM 

6 

SIMM 

7 

SIMM 

B 

SIMM 

9 

SIMK1 

10 

SIMM 

1  1 

SIMM 

1? 

SIMM 

1  1 

SIMM 

14 

SIMM 

15 

SIMM 

16 

SIMK1 

17 

SIMM 

IB 

SIMM 

19 

SIMM 

20 

SIMK1 

21 

SIMM 

22 

SIMKl 

23 

SIMM 

24 

SIMKl 

25 

SIMKl 

26 

SIMKl 

27 

SIMKl 

2B 

SIMKl 

29 

SIMKl 

30 

SIMKl 

31 

SIMKl 

32 

SIMKl 

33 

SIMKl 

34 

SIMKl 

35 

SIMKl 

36 

SIMKl 

37 

SIMKl 

3B 

SIMKl 

39 

SIMKl 

40 

SIMKl 

91 

SIMKl 

42 

SIMKl 

43 

SIMKl 

44 

SIMKl 

45 

SIMKl 

46 

SIMKl 

47 

SIMKl 

4ft 

SIMKl 

49 

SIMKl 

SO 

SIMKl 

51 

SIMKl 

52 

SIMKl 

53 

SIMKl 

54 

SIMKl 

55 

SIMKl 

56 

SIMKl 

57 

SIMKl 

SB 

SJMJC1 

59 

SIMKl 

60 

SIMKl 

61 

SIMKl 

62 

SIMKl 

63 

SIMKl 

64 

SIMKl 

65 

Figure  18.  Subroutine  SIMK1  Program  Listing 
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nucuo  %  nuc ?=o  »  nur.1* 

n 

S  I  mk  i 

6h 

nugo*o  t  NUG  1=0  i  NUGSO 

*0 

S  NI IGS  1*0 

SImki 

b  7 

N  V  G  0  =  0  i  NVG1=«  t  mVGS0*0 

i  nvgsi=o 

S I  mk  1 

bH 

NwG0*0  \  NW01=o  %  nwGSO 

*0 

*  NkGS 1 =0 

SIMM 

b9 

NRT  =  0  %  NPl=0  %  N8= 1  \ 

NL  *  3 

SIMKI 

70 

NXVPMsfe  $  NXPMM  t  NXllEMr 

30 

SIMKI 

71 

NUCM=3  I  NUGMx3 

SIMKI 

7  ? 

N9TMa9  \  NRLMs|S  4  NflM= 

1 

A  NL  **  3 

SIMKI 

7  J 

c 

SIMKI 

74 

c 

Off  INF  NAMES  TOP  SIMULATOR  MATRIX  DATA 

SIMKI 

7S 

f 

SIMKI 

7b 

c 

RIGID  ROOT  VELOCITY  COEFT 

matrix  names 

SIMKI 

77 

r 

SIMKI 

7  8 

JHE  AD (  1  >  =  10HVO/VPn 

% 

jHFArti?)  si  oh  VP  /  VP  l 

SImki 

79 

JHEADI  3) =10HVP/P0 

% 

JHF AD (4 ) = 1 OHVO/Hl 

SIMKI 

BO 

JHE ADIS) *10HVP/uF0 

* 

JHF  AO  I b  >  =  !  0HVP/UF1 

SIMKI 

81 

JHEAD(7I=10HVP/UF? 

% 

JHF AD (8 >  =  1 OHVP/DFLSO 

SIMKI 

B? 

JhE  AO (91 =10HVP/OELsl 

\ 

JHF ADI  10)  =  10HVP/DELS2 

SIMKI 

8  3 

JHF ADI 1 1 ) =10hVP/UGO 

Jh£AD|  1?)  =1  OHVP/IJGl 

SIMKI 

84 

JHEAOI 131*1 OHVP/VGO 

jhEaDI 14) *1 0HVP/VG1 

SImkI 

6S 

JHF ADI  1  S )  =  1 OHVP/WGn 

JhE  AD  (  1EI  =  1  OhvP/iVGI 

SIMKI 

«b 

JHF  AD (  1  7) =10HVP/UGS0 

JhEADI »8)=10HVP/UGS1 

SIMKI 

87 

JHF  AD  (  |9>=10HVP/VGK0 

JhE AD ( 20 ) =10HVP/VGSl 

SIMKI 

88 

JHE AO ( ? 1 ) *  1 OHVP/WGSO 

JhEaDI??) =10HVP/WGS1 

SIMKI 

89 

c 

SIMKI 

90 

c 

RIGID  HOOT  ATTITUDf  CnFFT 

MATRIX  NAMES 

SlMKl 

91 

c 

SIMKI 

9? 

JHF  AD  <  ?  3 ) = 1 OHR/vPO 

% 

JhEAD(?4)=10HR/vP1 

SIMKI 

93 

JHFAD(?S)=10HP/P0 

s 

JhEAD(?8)*10HR/R1 

SIMKI 

94 

c 

SIMKI 

9S 

r 

RENDING  MODE  COFFT  MATRIX 

NAMFS 

SIMKI 

9b 

c 

SIMKI 

97 

JHF  AD  ( 45  )  *  1  OHIJE  /VPO 

JhEaO|48)  =10HiJE/VPl 

SIMKI 

98 

jhEAD(47)  =  10hiiE/B0 

JhE  AD ( 48 ) =10HUE/B1 

SIMKI 

99 

JHFAD(49)*10MllF/IIEn 

JhE  AD (50)=10HUE/UF1 

SIMKI 

100 

JMFAD(Sl)  =  10HtlF/UE? 

JhE  aD(5?)*10HJE/DELS0 

SIMKI 

101 

JHFA0IS3I  =10Hi|F/OEl  SI 

JhEAD(54)*10HJE/DELS? 

SIMKI 

10? 

JHEAO  (S5 1  =  1  OhDF/IJGO 

JhE  AD  1 5b )  =10H'JE/IIG1 

SIMKI 

103 

JHEAD(S7)=10HUF/VGn 

JHEAD(SR) *10HUt/VGl 

SIMKI 

1  04 

JHEAO(S9)=lOMuF/WGn 

Jh£  AD ( bo )  =  1 OhuE/WGI 

SIMKI 

105 

JHE  AD  I  b  1  )  =  1  OHIIF  /UGSG 

JhE  AD  I  b? )  =  1 OHUE/UGS 1 

SIMKI 

1  Ob 

JHEAD(b3)=10MUF/VGso 

JhE  aD(64)*10HUE/VGS1 

SIMKI 

107 

JHEAD(FS) =10HUF/WGS0 

JhE  *D  I  bb ) = l  OH'JE 7 WGS 1 

SIMKI 

1  oh 

r 

SIMKI 

1  09 

c 

SENSOR  COEFT  MATPlK  NAMES 

SIMKI 

1 1  0 

c 

SIMKI 

1 1 1 

JHE  AD  I S7 )  =10HT/VP0 

t 

JhE  AD(bR)=10HT/VPl 

SIMKI 

11? 

JHEAOIb9)=10HT/P0 

s 

JHEAn(70)=10HT/Pl 

SIMKI 

113 

JHFAO(71)=10HT/UE0 

t 

JhE  AD  (  7? )  *10hT/IJE1 

SI«K1 

114 

JHE  AO  <  73 )  =  1 OHT /UF  ? 

% 

JHEADI 74) =1 OHT/DFLSO 

SIMKI 

1  IS 

JHEAD(7S)=10HT/DFLC1 

% 

JhE  aD(7»')  =  10hT/DELS? 

SImki 

lib 

JHE  AD(77;=10HT /UGO 

s 

JhE  aD 1 7  P ) =10hT/UG1 

SIMKI 

117 

JHE AO (791=10 HT/VGO 

s 

JhE»D(80) *10HT/VG1 

SIMKI 

118 

JHEADIPl >  =10HT/*G0 

t 

JhEaO IB?) =1 0HT/WG1 

SIMKI 

119 

JHFADIB3)  =  10HT/IJGSn 

% 

JhEaD(B4)=)0hT/'JGS1 

SIMKI 

1?0 

JHFAO(AS) =10HT/VGSO 

1 

JhFAD (8b) =1 Oht/VGSI 

SIMKI 

\?1 

)HEAD(fl7) =10HT/WGSn 

* 

JhEaD(BR) =10HT/WGS1 

SIMKI 

1?? 

c 

SIMKI 

1  ?-9 

c 

LOADS  COEFT  MATRIX  NAmFS 

SIMKI 

1?4 

c 

SIMKI 

1?S 

JHE  AD  189)=' OHL /VPO 

JHEADI90) =10HL/vP1 

SIMKI 

l?b 

JHF  AD ( 9 1 >  =  10K  /PC 

JHEADI9?) =) Ohl/RI 

SIMKI 

1  ?  7 

JHF  A()  (  9  3 )  =  1  OHL  /  I  IF  0 

JhFAD (94 )=10hl/UF1 

SIMKI 

1  ?8 

JHF  AO ( 9S )  =  1 OHL/UE? 

JHE AD  1 9b >  MOHL/DFLSO 

SIMKI 

1?9 

JHFAD(97)=10HL/nFLRl 

JhEAD (9R) =1 OHL /DELS? 

SIMKI 

130 

JHFAD(R9)=10HL/IJG0 

JHEADI 100) =10HL/UG1 

SIMKI 

131 

Figure  18.  Subroutine  SIMK1  Program  Listing  (Continued) 


89 


nnn  onn  ono  oooooo 


JHf *0(101 )  =  1 OHL/VGO 
JhF  *0  (  103)  =  10hl/MG() 
JHFAOI  105)=10HL/UGs0 
JHFAOI  107>=10hL/VGsO 
JhFADC109)*10HL/«Gs0 


«  lHFADd02)  *10HL/VG1 
A  |HFAD< 104) =10ML/MG1 
S  IMf AD< 1 06) =10ML/UG51 
t  IMF  AO  I )  08)  =  1  OML/VGS I 
\  IMFAOI | | 0) slOHL/tfGSl 


M I  SCFLL ANE0U5  “ATOM  NAMES 


JHFAOI  1  1  1  >  =  lOMIRANOING)  A  iMFADI  1  1?)  =1QH»F  INISHFD* 


SET  Up  max  ROM  and  COl  OIMFnSTOnS  FOB  SIMULATOR  MATRIX  OATA 


4 


6 


00  4  1=1.16 
11  =  1 
12=16*1 


13=32*1 
I  4  =  48  *  I 
1 5  =  64  « l 

tORMI I  1 ) =NXVPM  %  InOM  (  I?)  =  N*Wm  $ 
I0RMI 14) =NRTM  %  10RMI IS) =N»LM 
CONTINUE 
00  6  1=1.5 
J= (  16*1-16) 

IOCMI  J*1 ) =NXVPm  « 

I0CM1 j»3) *nxRm  % 

IOCMI J.5) =NXUF«  % 
iOCMI  J.8)  =NIJCM  \ 

IOCMI  j.l  1  >=Nl)6M  $ 

10CM( J*14) =NUGM  % 

CONTINUE 

IORMI81  )  =  NpM  *  IOCm  (81  )  sNl.M 
I oHM ( 8? ) =  30  *  l  OCM { 82 ) =  30 


I  DCM I  J*2 ) =N* VPM 
IOCm ( j»4) =N*Rm 
TOCm ( J. 6 ) iN»UFM 
IOCMI J*9) =NuCM  % 
I DCm ( j. 1 2) =mugm 
TOCm I J« 15) =nUGM 


OBMI 13) =NXUE  M 


%  IOCMI J.7) =NXUFM 
IOCMI j. 10) =NUCM 
A  IOCMI  J»  13)  =nUC.m 
t  IOCMI J* 16) =NUGM 


ChFCK  IF  SCRATCH  AorAY  SI7E  IS  SUFFICIENT 


N=0 

00  8  1=1.20 

8  N=N* IOPMI I ) *IOCM(  I  ) 

DO  9  1=33.82 

9  N=N» IORMI I ) *IOCM|  I ) 

IF (N.GT.MS2) 

1  CALL  OFRRMIMSI  .  N  .MS3.MS4  .  MS  1  .  MS2 .  MS 3.  MS1'-  »  1  .  0 . 4MS  I  MK  , 4H 1  .  I  W  ) 

IF ( IPBINT .EQ.6) C*LL  OF RUG  I2.4MSIMK.4H1  .1.0.  IM) 

INITIALIZE  THF  MEMORY  MMEBE  SIMULATOR  MATRIX  DATA  IS  STORFO 

00  10  !=1.N 

10  SC(I)=0.0 

RF AO  LSA  SIMULATOR  OECK  IDENTIFICATION  CARO 

12  CONTINUE 

REAOI IP. 16) ICAPO 
16  FORMA  T I  HA  1 0 ) 

IF!  I  CARD!  1  )  .FQ.  IENO)  RFTIJRN 

IF  I ( IPRINT.F0.3) .OR. ( IPRINT.GT.4) )WRITf I IW.22) 

IF! (IPRINT.EQ.3) .OR. < IPRIN*.GT.4) ) KRI TE < I W • 24 ) ICARO 
22  FORMAT l//.20X.27H*«*  |  SA  -  FLFXSTAR  OATA  •**,//> 

24  FORMAT!//. IX. 8A10.//1 

no  28  1=1.8 

28  I HEAD ( 1 )  =  ICAPO  1 1 ) 

READ  I  IP. 16) ICARO 
MHEAO  =  ICARD(  1  ) 

DECOOEI1O.30. ICARO 1 2) )NR0W.NCOL 
30  FORMAT (215) 

IFIICAROIII.NE, IENO ) GO  TO  5? 


SImk 

1  I  3? 

S  I  MK 

1  I  J  ) 

SI  MX 

1134 

SI  MX 

1135 

SI  MX 

1 1  36 

S  I  MX 

I  1  37 

Si  MX 

1138 

SI  MX 

1  1  39 

SI  MX 

1  160 

SIMX 

1  161 

S  I  MX 

1162 

SIMX 

1  163 

SIMX 

1  164 

SIMX 

1  165 

SI“K 

1  166 

SIMX 

1167 

SIMX 

1  168 

SIMX 

1  169 

SIMX 

1  ISO 

SI«X 

1  1  s  1 

SIMX 

1152 

SIMX 

1  153 

SIMX 

1  154 

SIMX 

1155 

SIMX 

1  156 

SIMX 

1157 

SIMX 

1  158 

SIMX 

1159 

SIMX 

1  160 

SIMX 

I  161 

SI  MX 

1162 

S  1  MX 

l  16  ) 

SIMX 

1164 

SIMX 

1165 

SIMK 

1166 

SIMK 

1167 

SIMK 

1  168 

SIMX 

1169 

SIMK 

1170 

SIMK 

1171 

SIMX 

1172 

SIMK 

1173 

SIMK 

1174 

SIMX 

11  75 

SIMK 

1176 

SIMK 

1177 

SIMK 

1178 

SIMK 

1179 

SIMK 

1  180 

SIMK 

1161 

SIMX 

1  182 

SIMK 

1183 

SIMK 

1184 

SIMK 

1  1HS 

SIMK 

1  186 

SIMX 

1187 

SIMK 

1  188 

SIMK 

1  1  60 

SIMK 

1  190 

SIMK 

I  191 

SIMX 

1  192 

SIMX 

1193 

SIMK 

1194 

SIMX 

1195 

SIMK 

1196 

SIMK 

1  197 

Figure  18.  Subroutine  SIMK1  Program  Listing  (Continued) 
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c 

c 

c 


jr=ir 

19  =  4 

LOCATE  SIMULATOR  nrCK  DATA 
CONTINUE 

9EAO< (9. 16) ICAPD 
IE  (EOF  I IRI ) 36.44 
CONTINUE 

PP  I  NT  F990R  mfssegc 
WRITE (14.401  IP 

FOPHAT ( 1 M 1 .//. 1 X.3AHVEHICLE  DATA  CANNOT  bF  FOUND  ON  F I LE=  .12) 
STOP  Ill 

PE  AD  MATRIX  NAME  CARD 
CONTINUE 

IE  ( IHFA[)(  1 )  .NE.  IC»PO<  1  >  >GO  TO  0? 

RE  AO ( IR. 16)  ICAPD 
MHEA0=ICAR0 ( 1 ) 

DECODE (10.30. t CARD (2) )NROW,NCOL 

C.0  TO  S2 

CONTINUE 

PE ADI  19. 16)  ICAPD 
MHE  AO= I CARO ( 1 ) 

DECODE ( 10.30, ICARO (?) INROW.MCDL 
CONTINUE 

IF  (IPRINT.E 0.6) CALI  DEHUG ( 3.4HSIMK . 4Hl  .1.0,14) 

DO  S4  1=1.11? 

IF  (MHEAO.EU.  JHEADI  t  I  )C,0  TO  SH 
CONTINUE 

PRINT  FRROR  mESSEGF 

CONTINUE 
WRITE (  IW.56I 

FORMAT (1H1.//.1X.1 PHERPOH  In  INPUT  DATA) 

STOP  111 

READ  and  PRINT  LSA  SIMULATOR  DECK  DATA 
CONTINUE 

IF(I.GF. 112)00  TO  RH 

COMPIJTF  II  FROM  I  SO  THAT  STEADY  GUST  COEFT  MATRICES  ARE 
STORED  IN  THE  SAME  LOCATIONS  AS  THE  GUST  COEFT  MATRICES 

1 1  =  I 

IF (( I .AT. 16) .AND. < I .LF.?6) ) I  I =1-6 
IF ( ( I  .AT. 26) . AND. ( T.LF.44) ) AO  TO  SS 
IF  < ( I .AT. 44) .AND. ( I.LE.60) ) 1 1  =  1-1? 

I F ( (I.GT. 60) .AND. (I.LF.B?))  J  1  =  1-1 n 
I F ( (I.GT.82) .AND. ( T.LE.l 04) ) 11=1-24 
IF ( ( I .AT. 104) .AND. 1 1. LF.l 12) ) 11*1-30 

COMPUTE  ARRAY  START  INDEX  FOR  SIMULATOR  MATRIX  DATA 

N=  1 

I  Ml  =  I  I -1 

IF ( 1 1 .70.33) IM1=?0 
IF ( IM1 .E 0.0) GO  TO  70 
JM 1  =  I M 1 

IFIIM1.GT.20) JMI=20 

no  60  j= l • jmi 


S]MK ) 1NH 

S I MK 1 194 
S  1  MK  1?(J0 
S I MK 1201 
S I MK 1 ?0? 

S I mk 1 ?0  3 
SIMK 1 204 
SIMK120S 
S I mk 1206 
S I MK 1 20  7 
SIMK120H 
S I MK 1209 
SIMK l 210 
S  T  MK 1 2  1  1 
SIMK 12! 2 
siMKi?n 
S I MK 1214 
SIMK 1 21 S 

SI MK 1 2  1  6 
S I MK 1217 
SIMK 1218 
S I MK 1 2 1 9 
SIMK 1 220 
SIMK 1 22 1 
SIMK1222 
S I MK 1 22  3 
SIMK1224 

S I MK 1 225 
S I MK 1 226 
SIMK 1227 
SIMK122H 
SIMK 1 229 
SIMK 1230 
SIMK 1231 
SIMK123? 
SIMK 1 233 

SIMK1234 
SIMK 1235 
SIMK1236 
SIMK1237 
SIMK123H 
SIMK 1 ?3R 
SIMK1240 
5  I MK 124  1 
SIMK1242 
SIMK1243 
S I MK 1 244 
S 1 MK 1 24S 
S I MK 124b 
SIMK 1 247 
S I MK 1 248 
SIMK124R 
SI“K12S0 
SIMK 1 25 1 
SIMK 1 ?S? 
S1MK1253 
SIMK1254 
SIMK1255 
SIMK1256 
SIMK1257 
SIMK1258 
S 1 MK 1 259 
SIMK1260 
SIMK 1 26 1 
SIMK126? 
SIMK 1 263 
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60  N  =  N»  I ORM  ( J ) • I OCM  <  J ) 

IE t IM1 .LE. 20)00  TO  70 
00  65  J=33t!Mi 
65  N=N»IORM(J)*IOCM(J) 

70  CONTINUE 

c 

C  READ  AND  PRINT  SIMULATOR  matrix  oata 

c 

NROWM=IOHM( I  I )  %  NrOLM=IDCM( I?) 

CALL  INPfl (SC(N) .NQOWm.NCOLm.nROW.NCOL. IR> 

CALL  MPRS1  (SC (N) *NROWM.NCOLm,nROW.NCOL«mHE AO) 
r 

C  COMPUTE  STATE  0 1 MENS  I  ON  OE  SIMULATOR  MATRIX  DA  T  A  READ 

C 

IE ( ( I  I .GT.OO) .AND. ( T I ,LE. 16) ) NXVP=NROK 
IE ( (I  I .GT. 16) .ANO. ( I  I .LE.32) )NXR=NROW 
IE ( (I I.GT.32) .ANO. (II.LE.4fl) )NXUE=NROW 
IE ( (1 l.GT.48) .AND. (II.CE.64I ) NRT  sNROW 
IE ( ( I  I .GT .64) .ANO. ( II.LE.80) ) NRL=NR0W 
C 

C  COMPUTE  INPUT  niMENSION  OE  SIMULATOR  MATRIX  DATA  READ 

C 

00  BO  J=  1 .5 
JJ= ( J-l ) *22»I 
IE ( JJ.LT. 96)00  TO  AO 
IE ( JJ.GT • 1 1 0 ) GO  TO  BO 
IE ( JJ.E0.96 ) NUC 1 =NCOL 
IE  ( JJ.EQ.97-)  NUC2*NC0L 
IE  < JJ.FQ. 98) NUC3=NC0L 
IE ( JJ.EQ.99)NUGOXNCOL 
IE  ( JJ.FQ.  100>NUGl=NCOL 
IE(JJ.EQ.lOl) NVGO=NCOL 
IE(JJ.E0.102)NVG1*NCO( 

IE ( JJ.FQ.  1 03)  NWGO*nCOi. 

IE (JJ.FQ. 104) NWG1=nC0l 
IE (JJ.EQ.1051 NUGSOsNCOL 
IE (JJ.E0.106) NUGS 1 sNCOL 
IE(JJ.EQ.107)NVGS0=NCOL 
IE (JJ.FQ. 10R)NVGS1=NCOL 
IE(JJ.EQ.109)NWGSO=NCOL 
IE(JJ.EQ.110)NWGS1=NCOL 
SO  CONTINUE 
GO  TO  4fl 


SImk 1  Phi 
SIm«i?T,5 
SImk )?66 
S I MK 1 267 
S I mk 1 26H 
SIMK1269 
S I MK 1 ?  70 
S I MK 1271 
S 1 1 272 
SIMK1273 
SIMK1274 
S I MK 1 275 
S I MK 1 ?7s 
S I MK 1277 
SIMK127H 
StMK127R 
SIMK12B0 
SIMK 1 2fl 1 
SIMK1282 
S I MK 1 ?B  3 
SIMK12B4 
SIMK12B5 
SIMK12H6 
SIMK 1207 
S 1 MK 1 284 
SIMK12«<7 
SIMK1290 
SIMK1291 
SIMK 1 292 
S I MK 1 29  3 
S I MK 1 294 
SIMK129S 
SIMK1296 
SIMK 1 297 
SIMK129B 
SIMK1299 
S I MK 1300 
SI mK l 30 1 
SIMK 1 302 
SIMK 130 3 
SIMK 1304 
SIMK1305 
SIMK 1306 


C 

C 


C 

c 

c 


r 

c 

C 


PRINT  THE  LAST  CARD  READ  FROM  SIMULATOR  MATRIX  DATA 
98  CONTINUE 

IE  1 (IPRINT.EO.il .OR. ( IPRINT.GT.4 )) WRITE1  (I«* 100) MME*0 
100  EORMAT (//.10X.A10./) 

IE ( I PR I NT .EQ.61CALL  DEBUG ( 4.4HSIMK , 4H1  .1.0. IW> 

FORM  THE  UNITY  MATRIX 

IE (NXUE .EQ. 0 1  GO  TO  134 
DO  130  I=1.NXUF 
DO  130  J= 1 .NXUE 
UNITY ( I . J) =0.0 
130  UNITY (1*11*1.0 
134  CONTINUE 

CHECK  FOR  DIMENSION  ERROR 

IE( (NXVP.LE.NXVPM) .AND. (NXR.LE .NXRM) . AND. (NXUE.LE . NXUEM) 

1. AND. (NUC1.LE.NUCM) .AND. (NUC2.LE.NUCM) .AND. (NUC3.LE  .NUCM) 

2.  AND.  (NUGO.LE.NUGM)  .AND.  (NUr.l  .LE.NUGM) 

3.  AND. (NVGO.I  E.NUGM) .AnO. (NVG1 .LE.NUGM) 


SI MK 1 307 
SIMK 1 308 
SIMK1309 
SIMK1310 
5 l MK 1311 
SIMK 1 3 1 2 
SIMK1313 
S I mk 1314 
SIMK131S 
SIMK1316 
S I MK 1 3 1 7 
SIMK 1 31 8 
SIMK 1319 
SIMIC1320 
S I MK 1 32 1 
SIMK1322 
SIMK 1 323 
SIMf 1324 
SIMK 1325 
SIMK1326 
SIMK 1 327 
SIMK 1328 
SIMK1329 
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92 


c 

c 

c 


c 

c 

c 


4.4N0. (NWGO.Lf .NllGM) .AND. (NWOl .LE.NU&M) 

5.  AND.  (NOr.S0.LF  .NUG**)  .  AND  .  (NttGsl  .LE  .  NUGM) 
b.ANO. (NvGSO.LE.NUGm) .AND. (NvGSl.LE.NU6M) 

7.AN0. (NWGSO.LE.NUGm) .AND. (NwGSl .LE.NUGM) 

ft. AND. (NRT.LE.NOTM) .AND. (NRL.LE .NRLM) .AND. (NB.LE.NBM) .AND 
9. (NL.LE.NLM) )GD  TO  13« 

136  EORMAT(1HU//.IX,43HOIMFNSION  DE  LSA  DATA  EXCEEDS  THAT  USED  IN 
1 . 16HSUOR0UT INE  SJMKl) 

STOP  Ml 
136  CONTINUE 


COMPUTF  SYSTEM  DIMENSIONS 


NX  =  NXVP*NXR*NXIIE»2 

NU=NUCl»NUC2*NUC3*MUGn«NUGl«NVG0*NVGl*N*G0*NBGl 

1  »NUG50«NUGS  1 .NVGSO.NVgSI ♦NMgSO.NBGSI 

np=nrt«nrl 

IF( IR.NE.41G0  TO  1? 

I  ps  JR 

IF  ( IPRINT.EQ.f>)CALl  DEBUG (5 .4HS1MK . 4Hl  »l»0.l4Al 
RETURN 

POINT  ERROR  MESSEGF 


SIMK1 330 
SIMK1 331 
5IMK1332 
SIMK1333 
SIMK1334 
S1MK1335 
S I MK1 336 
SIMK1 337 
_S1.MK.1335 
S1MK1339 
S I MX 1340 
S1MK13M 
S I MK 1342 
SIMK1343 
S1MK1244 
SIMK1345 
S1MK1346 
SJMK1347 
SIMKl 34ft 
SIMK1349 
SIMKl 350 
SIMKl 351 
SINK  1352 
AIMK1352 
SIMK1354 
SIMK1355 


C 

C 

C 


C 

C 

C 


C 

c 

c 


c 

c 

c 


c 

c 

c 


40  CONTINUE 

45  FORMAT (1H1.//.1X* 35H0IMENSI ON  ERROR  IN  SUBROUTINE  SIMKl) 

STOP  1)1 
50  CONTINUE 

DIFFERENTIAL  FOUATTONS  FOR  RIGID  BODY  VELOCITIES 

IF (NXVP.LE.O) GO  TO  264 
DO  260  1=1 .NX VP 
XOOTL ( I ) =0 • 0 

FROM  RIGIO  BOOY  VEI  OCITIES 

152  XOOTU  n  =XOOTL  (  I  >  *VPVP 0  ( I  ,K)  *X  (K)  ♦  VPl/21  1 1  ,K>  *XDOT  <K> 

IF (NXR.LE.O) GO  TO  160 

FROM  RIGID  BODY  ATTlTUOES 

DO  156  K=1.NXR 

156  XDOTL(I)=XDOTL(I) ♦VPPO(I.K)»X(KK> ♦VPRldtK) *XD0T (KK) 

160  CONTINUE 

IF  (NXUF.LE.O)GO  TO  16ft 

FROM  BENDING  MODES 

00  164  K=1.NXUE 
kk=nxvp»nxr»k 

KKKsNXVP»NXR*NXUE*k 

164  XDOTL(I)=XDOTL<I)*VPUEOU.K)*X(KK)*VPUE1(J._'<>*X(KKK) 

l.VPUE2(I«K)«XOOT(KKK) 

168  CONTINUE 

FROM  CONTROL  SURFACE  INPUTS 


IF (NUC1 .LE.OIGO  TO  184 
DO  172  K=1.NUC1 

72  XOOTL ( I ) s XOOTL ( I ) *VPDf LSO ( I *K) #U <K ) 

IF (NUC2.LE . 0 1  GO  TO  184 

Figure  18.  Subroutine  SIMKl  Program  Listing  (Continued) 


SIMKl 357 
SIMK135B 
51MK1359 
SIMKl 360 
S l MK 1361 
S1MK1362 
SIMKl 363 
SIMKl 364 
5IMK1385 
SIMKl 366 
SIMKl 367 
Jj1MKL36B 
SIMKl 369 
SIMK1370 
SIMKl  371 

SIMK1372 
SIMK1373 
S1MK1314 
SIMK1375 
SIMKl 376 
S1MK1277 
SIMKl 378 
SIMK1379 
_5IMKi3Bfi. 
SIMKl 381 
SIMK 1382 
SIMKl 383 
SIMKl 384 
SIMK1385 
SIMKI3B6 
SIMK138T 
SIMK1388 
SIMK 1389 
SIMK 1390 
SIMK 1391 
SIMK 1 392 
SIMK 1393 
SIMK 1394 
SIMK 1395 


93 


n  n  n  n  n  n  n  n  n  n  n  n  n  n  n 


00  170  K=1 tNUC2 
kk=NUC 1 »K 

1  70  XOOTL ( T ) =AD0TL ( ! ) ♦VPOFLSl  < I ,K>«U(KK> 
I F ( NUC 1  •  LE • 0 ) GO  TO  184 
00  100  K= I ,NUC1 
KK=NUC1 * NUC?  *  K 

ISO  XOOTL  (  I  1  *  XOOTL  (  I  I  *  VPOFL  S2  <  I  .K)  *IMKK> 

184  CONTINUE 

HU=NUC1  *NUC2»NUC3 
i  t  =  r 


F POM  O-GUST  INPUTS 

IF (NUGO. LE.OIGO  TO  190 
DO  18*  K=1.NUG0 
kk=mu*k 

188  XOOTL  (ID  =XDOTl  (II)  *VPUGO  (  I  .  K  )  •(.)(  KK  ) 
IFINUGI.LE.OIGO  TO  1 90 
O0  192  K=1.NUG1 
KKsMU*NUGO«K 

192  XOOTL ( I  I ) = XOOTL (Ill ♦VDUGl < I . K ) »U  <  <K  > 
190  CONTINUE 

MIJ  =  MU*NUG0  ♦NUG  l 

FROM  V-GUST  INPUTS 

IF(NVGO. LE.OIGO  TO  208 
00  200  K=1.NVG0 
kk=mu»k 

200  XOOTL (ID  =XOOTL (II) «VPVG0 < I .K) »U(kk) 
IF(NVG1.LE.O)GO  TO  208 
no  204  K=l.NVpl 
KK=HU»NVG0»K 

204  XOOTL (II) =XOOTL (II) »VPVG1 <  I  .K  )  *tMKK) 
208  CONTINUE 

MU=NU»NVG0»NVG1 

EPf)M  X-GIJST  INPUTS 

IF (NWGO.LE.OIGO  TO  220 
00  212  K=l«NWG0 
KK  =  M(J*K 

212  XOOTL (ID  = XOOTL (II) ♦VPWGO ( I »K ) *U (KK ) 
IFINWG1 .LE.OIGO  TO  220 
00  218  Ksl.NWGl 
KK=MU*NWG0*K 

218  XOOTL  (It)  =XOOTl.  (II)  *VPWG1  ( I .K) *U(KK) 
220  CONTINUE 

M|J=MU*NWG0«MWG1 

FROM  STEADY  IJ-GUST  INPUTS 

IF (NUGSO.LF.O)GO  To  212 
00  224  K  =  1  » NUGSO 
KK=MU»y 

228  XOOTL  (II)  =XOOTL  (II)  ♦VPUC.O  (  I  ,K) *U<KK> 
IF (NUGS1 .LE.0)0O  To  212 
00  228  K=1.NUGS1 
KK=MU»NUGSO*K 

228  XOOTL ( I  I )= XOOTL (II) »VPUG1 ( I . K ) *U (KK ) 
232  CONTINUE 

mu=MIJ*NUGS0*NUGS1 

F90M  STEADY  V-fitlST  INPUTS 

IF(NVGSO. LE.OIGO  To  244 


S I MK 1 398 
S I MK 1 39  7 
SIMK 1398 
SIMK I  399 
SIMK1400 
S I MK 1401 
S I MK I  40 2 
S I MK 1403 
S I MK 1404 
SIMK1405 
SIMK 140 6 
S I MK 1407 
S I MK 1408 
SIMK 1 409 
SIMK 14 10 
SIMK 1411 
S I MK 1 4 1 2 
SIMK1413 
SI MK 1 41 4 
S I MK 1 4 1 S 
SIMK14J8 
S I MK 1417 
SIMK 1 4 1 8 
SIMK1419 
S I MK 1420 
S I MK 1421 
S I MK 1 422 
SIMK 1423 
SIMK 1 424 
SIMK 1425 
SIMK1428 
SIMK1427 
SIMK1428 
SIMK1429 
SIMK 1430 
SIMK143J 
S I  MK 1432 
SIMK1431 
SIMK1434 
SIMK143S 
SIMK1436 
SIMK 1437 
SIMK 1 438 
S I  MK 14  39 
S I MK 1 440 
SIMK 1441 
SIMK 1 442 
SIMM  443 
SIMK 1444 
S I MK 1 445 
_SIMKJ44G 
SIMK 144 7 
SIMK 1 448 
SIMK 1 449 
S I MK 1 4S0 
SIMK 1451 
-SIMK  1452 
SIMK1453 
SIMK 1 454 
SIMK1455 
SIMK 1 458 
SIMK 1 457 

SJMKJ458 

SIMK 1459 
SIMK1460 
SIMK1461 
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n  n  n  non  nn.n  non  non  non 


OD  236  K=1.NVGS0 
KK=M(J«K 

236  XOOTL  (  II  )  =  X0OTI  (  1  I  )  ♦VPVf.O  (  I  .K)  «IJ(KK  ) 

IF (NVGS1 .LF.OIGO  Tn  244 
00  240  k=i.nvgsi 
KK  =MIJ»NVGS0  *K 

240  XOOTL ( I  I > =X00T|  III  )  *VOVr,l  (  I  .K  >»U(kk  ) 

244  CONTINUE 

Mtl*MU*NVGS0,NV0Sl 

FROM  STEADY  W-r.l)ST  INoilTS 

I F ( NIXGSO  .LE .0)00  Tn  256 
00  24 H  K  =  1  .Nwr,cn 
KK=M(J*K 

?48  X0OTL (II) =X00TI  1 1  l )  »  VPWG0  (  I  «K  I  *LI  ( KK  ) 
lEINMGSl. LF.OIGO  TO  256 
00  252  K=1.NWGS1 
KK=MIJ»MWGSO»K 

252  XD0TL  ( I  I  )  =X00TI  (III  ♦VpkM  { I ,K I •U(x* ) 

25 6  CONTINUE 

mu=mu»n*gso«n*gsi 
260  CONTINUE 
264  CONTINUE 

DIFFERENTIAL  EQUATIONS  FOP  olr.JD  BODY  ATTITUOES 

IE (NXP.LE.O)GO  TO  ?80 
00  2/2  1=1, NXP 
I  I =NXVP» I 

XOOTL ( I  I ) =0.0 
IF  (NXVP.lE • 0  >  GO  TO  27? 

FROM  RIGIO  ROOY  VFlOClTIES 

DO  260  K  =  1 , NX  VP 

260  xnoTi  (id  =xooti.  (in  .pvpo  u..o»x(K),rvd1(I  ,k»  *xoot  i  k  > 

272  CONTINUE 

FROM  RIGID  ROOY  ATTITUDES 

00  276  K=1 ,NXR 
KK=NXVP,K 

276  XOOTL  (  II ) =XO0TI  ( 1 1 ) ,RO0 ( I ,K ) * X ( KK ) *RR ] ( I • * ) *XD0T ( <K ) 

280  CONTINUE 

0 1 FFFRFNT  I  At.  FOUATTONS  FOR  PENDING  MODF  DISPLACEMENTS  AND  RATFS 

IF (NXUF.LE.O) GO  TO  396 
00  284  I = 1 , NXUF 
I I=NXVP»NXR»I 
XOOTL  (  I  I  ) =0.0 
00  2R4  K  =  1  , NX( IF 
KK=NXVP*NXR*NXUF*K 

284  XOOTL ( 1 1 )= XOOTL ( 1 1 ) ♦UN I T V ( I .K 1 *X (KK ) 
no  392  I = 1 , NXUF 
I  [=NX'/P»NXR*NXUF«  I 
XOOTL ( II ) =0.0 
IF (NX VP.LE .0 ) GO  TO  2P2 

FROM  RIGID  ROOY  VElOCITIES 

00  288  K=1 »  NX  V° 

288  XOOTL  (  1 1  )=  XOOTL  <  I  I )  *l»F  VPO  (  I  ,K  )  *X  (K  )  *UE VP  1  ( I  ,K  1  *X00T  (K  ) 

292  CONTINUE 

IF (NXR.LF.0IGO  TO  298 


SIMK146? 
S[M<)46) 
S  Mk  1  464 
5  I MK 1 46S 
S I MK 1 466 
S I MK 1 46  7 
S I MK I  468 
3  I MK 1 469 

5  I MK 14  70 
SIMK1471 

6  I MK 1472 
S1MK 147 1 
S I MK 1474 

5  I mk 1 475 
S I MK 1476 
51 MK (477 
S I MK 1478 

6  I MK 14  79 
5 1 MK 1480 
S I MK 1481 
5  I MK 1482 
5  I MK 1 48  1 
SJMK 1484 

SIMK 1485 
5  I MK I486 
SIMK 1487 
5  I MK 1 48  y 
5  I MK 14  89 

5  I MK 1 490 
S l MK 1491 

6  I MK 1 49? 
5  I MK 149  3 
S1MK1494 
S I MK 1495 
SIMK1496 
5  I MK 149  7 
SIMK 1498 
SImk 1499 
SIMMSOn 

5 1 mk 1501 
S Imk 1 502 

5 1 mk 1 50  3 
5 1 MK 1 504 
S I MK 1505 
SIMK1506 
5  I MK 1 50 7 
S I MK 1 50  8 
S I MK 1509 
5 IMK 1510 
5 1 MK 1 5 1  1 
SIMK 15 12 
SIMK 1513 
S 1 MK 1514 
SIMK 151 5 
S I MK 1516 
5  I MK 1 5  I  7 
SIMK 15 18 
SIMK1519 
S I MK 1 520 
SIMK 1521 
SIMK 152? 
S I mk 1 52  3 
SIMK 1524 
S I Mk 1525 
5 Imk 1 526 
S I MK 1 5?  7 
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c 

S I MK 162A 

c 

FROM  31GI0  RODv  ATtITIIOFS 

SIMKIS29 

c 

SIMK1S  (0 

no  296  K= 1 .NXR 

S I MK 1  S3 | 

KK  =  NX  VO  *K 

SIMK1A32 

296 

XOOTL (111 =  XOOTl  (  I  I)  *UFR0  <  I  ,K)  **X  <Kk>  ♦UER1  (I .K) »X00T (KK) 

S I MK ) S  3  3 

29A 

CONTI HUE 

St*K)S34 

c 

S1MK IS  3S 

c 

FROM  4FN0ING  MODES 

SlMK ) S36 

c 

SIMKI537 

OO  30.1  K  =  1  » NXUF 

S 1 MK | s  3 a 

kk=nxvp*nxr«k 

SIMK 1S3R 

KKK=NXVP*NXR*NXUE*'' 

SIMK1S40 

TOO 

XOOTl  (II) =XDOTl  (III  *UFUF0 ( I  .Ki *X (KK) ♦ JFUE 1  (I.K)*X(KKK> 

SIMK1S4) 

1  ♦  ,.)FUE?  <  I  .K)  «XOOT  (KkK) 

SIMK 1 S42 

c 

SIMKIS43 

c 

FROM  CONTROL  SURFACE  INPUTS 

SIMK1S44 

c 

SIMK 1S4S 

IF ( NUC 1 . LE . 0 ) GO  TO  316 

SIMK1S44 

00  304  K  = 1  . NUC l 

SIMK1S47 

304 

XOOTL (II) =XD0TI  (II) ♦UpOELSO ( I .K) •  1 1  ( K  > 

S I MK 1 S4 A 

IF (NUC2.LE.0IGO  TO  316 

S I MK 1 544 

00  30 A  K  = 1 t  NUC 2 

S1MK1SS0 

K  K  =  NUC 1 «K 

SIMK1SS1 

30  A 

XOOTL (II) -XOOTL (It) ‘UFOELSl ( I .K) •()  IKK  > 

SIMK1SS? 

I F ( NUC3 .LE , 0 ) GO  TO  314 

SIMK 1SS  I 

DO  312  K  = 1 « NUC 3 

SIMKIS54 

KK=NUC1 »NUC2»K 

SIMK 1SSS 

312 

XOOTL (II) *XOOTL (II) ♦UFDFLS2( I .K ) *U (KK) 

SIMKISS6 

316 

CONTINUE 

SIMK1SS7 

MU=NUC1  «NUC?«NilC3 

SIMKlSSO 

c 

S I MK 1 SS9 

r 

FROM  U-GUST  INPUTS 

S  I  MK  1  S6i) 

c 

SIMKIS61 

I F ( NUGO .LE . 0 ) GO  TO  32A 

SIMK1S6? 

00  320  K=1,NUG0 

SIMK1S63 

KK=MU»k 

SIMK1S44 

320 

XOOTL  (  I  I  )  =XDOTL  (II)  ♦UFUC.O  (I,K>*U(KK) 

S I MK 1 S6S 

IF (NUG1 .LE.01GO  TO  32A 

SIMK | S46 

00  324  K=1,NUG1 

SIMK1S67 

KK=MU*NUGO*K 

SIMK1S6A 

324 

XDOTL (II) =XOOTL (II) »UFUG1 < I »K) *U (KK ) 

S l mk 1 S6  4 

32A 

CONTINUE 

S I MK 1 S  JO 

MU=MU*NUG0 •NUG) 

SIMK 15 71 

c 

SIMK1S7? 

c 

FROM  V-GUST  INPUTS 

SIMK1S73 

c 

SIMK 1S74 

I F ( NVGO .LE . 0 ) GO  TO  340 

S I mk 1  s  ?s 

00  332  K  =  1 . NVGO 

SIMK 1676 

KK=MU*K 

SIMK 1 577 

332 

XOOTL (II) =XOOTL (II) »UF VGO ( I ,K>  *U(KK) 

SIMKJS/A 

IF (NVG1 .LE. 0 ) GO  TO  340 

S I MK 1 S  79 

00  336  K=l.NVGl 

SIMKlSSO 

kk=mu»nvgo»k 

S I MK 1 58 1 

336 

XOOTL  (II)  =XDOTL  (II)  *UFVG1  (  I  .  K  )  *11  (KK  ) 

SIMK1SH? 

340 

CONTINUE 

S I  MK  )  S  A  3 

MU=MU»NVG0*NVG1 

SIMK1SA4 

c 

SIMK15SS 

c 

FROM  W-GUST  INPUTS 

S I MK 1 SH6 

c 

SIMK1SS7 

IF  (NMGO.LE.O)GO  TO  3S? 

SIMK1AAA 

00  344  K=1«NWG0 

SIMKJSAR 

KK=MU»K 

S I MK 1 590 

344 

XOOTL (II) =XOOTL ( I I) ♦UFWGO ( I ,K)*II<kk> 

SIMK1S91 

IF(NWG1.LE.O)GO  TO  3S? 

SIMK1S92 

00  34 A  K=1,NWG1 

SIMK1S93 

Figure  18.  Subroutine  SIMK1  Program  Listing  (Continued) 


r>r»r>  or>n  r>no  ooo  o  o  o  r»  r>  o 


Kk=mu*nwGO*k 

34ft  XPOTL  (II)  =  X0OTl.  (  m  »UFWf>l  ( I  ,K)  *U(KK) 
35?  CONTINUE 

MU=MU*NWG0*N«G1 

r<?OM  STEADY  ll-GUSl  INPUTS 

I F ( NUGsO . LE  .  0 ) GO  TO  3*4 
DO  35b  K=l. NUGSO 
K  K “MU  *H 

356  XDOTL ( I  I) =X0OTl  (II) »UEUG0 ( I .K ) «U (KK ) 
I F ( NUGS 1 , LE . 0 ) GO  TO  364 
DO  360  K=1.NUGS1 
kk=MU*NUGS0*k 

360  XOOTL (II) = XDOTL (II) ♦UFuGl ( I  ,K)«U(KK) 
364  CONTINUE 

MU=MU*NUGS0*N|)GS1 

FROM  STEADY  V-GUST  INPUTS 

IF (NVGSO . IE . 0 ) GO  TO  376 
DO  368  K=l. NVGSO 
KK=MU»K 

36ft  XDOTL (II) =XOOTL (II) «UFVG0 1 1 ,K) *U(KlO 
IF (NVGSl.LF.O)GO  TO  376 
DD  37?  K  = 1 tNVGS 1 
KK  =  MU ♦ NVGSO  *K 

37?  XDOTL (II) *XDOTL (II) «UFVG1 < I  * K ) *U(KK ) 
376  CONTINUE 

musMU»NVGSO*NVGS1 

FROM  STEADY  W-GUST  INPUTS 

IF  < NwGsO .LE . 0 ) GO  TO  3fl8 
DO  380  K=l, NWGSO 
KK=MU«K 

380  XOOTL(II)=XDOTL(III«UFWGO(I.K)*U(KK) 
I F ( NWGS 1 .LF . 0 ) GO  TO  38H 
00  384  K=1.NWGS1 
KK*MU«NWGS0»K 

384  XDOTL  (II)  =XDOTL  (II)  *UfwG1  ( I  ,K)  »U(KKI 
388  CONTINUE 

MU=MU‘NWGS0*NWGS1 
39?  CONTINUE 
396  CONTINUE 


S I  MX  )  59<* 
SIMK1S9S 
SIMKIS^G 
SIMK1597 
SIMK1598 
SIMKJ599 
SIMK 1600 
S I MK 1601 
SIMKJ60? 
SIMK 160 3 
SIMK1604 
SI MK 1 60S 
S I MK 1606 
SI MK 1 60  7 
SIMK1608 
SIMK 1 609 
S I MK 1610 
SIMK461 1 
S I MK 161? 
S I  MK 1 6 1  3 
SIMK 161 4 
S I  MK  1 6 1 5 
5 1 MK 1 6 1 6 
SIMK1617 
S I MK 1618 
S I MK 1619 
SIMK 1620 
SIMK 1 6? 1 
SIMK162? 
SIMK1623 
S I MK 1 624 
SIMK 1 625 
SIMK1626 
SIMK 1 627 
SIMK1628 
SIMK 1629 
SI MK 1 630 
SIMK 1 63 1 

SIMK 1632 

SIMKI633 
SIMK1634 
S1MK1635 
SIMK 1636 
SIMK 1 637 
SIMK16l38 


SENSOR  EQUATIONS 

SIMK1639 
SIMK 1640 

IF(N«T.LE.O)GO  TO  S 1  6 

SIMK1641 
S I MK l 64? 

00  SI?  1=1. NRT 

S I MK 1 643 

«L(I)=0.0 

SIMKI644 

IF(NXVP.LE.O)GO  TO  404 

SIMK 1645 

FROM  RIGID  ROOY  VELOCITIES 

SIMK 1646 
-SIMK  1647 

00  400  K=1.NXVP 

SIMK 1648 
SIMK 1649 

400 

RL ( I ) =RL ( I ) ♦TVPOU ,K) »X (K)  ♦TVP1(I.K)*XD0T(K) 

SXMKJ650 

404 

CONTINUE 

S I MK 1 65 1 

IF (NXR.LE .0) GO  TO  412 

SIMK165? 

FROM  RIGID  BODY  ATTITUDES 

SIMK 1653 
S I MK 1 654 

DO  408  K=1,NXR 

SIMK1655 
SIMK 1 656 

KK=NXVR*K 

SIMK 1657 

408 

RL(I)=RL(I)»TR0(I,K)*X(KK)*TR1  (I.K»*XDOT(KK) 

SIMK1658 

412 

CONTINUE 

SIMK 1659 

Figure  18.  Subroutine  SIMK1  Program  Listing  (Continued) 
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IF  (NXUF. LE.OIGO  TO  420 


F POM  HFNUlNG  MOOFS 


OO  416  K  =  1 .  NXUF 
KK=NX'/p»NXR»« 
kkk=nxvr*nxR*n«uf  •* 

416  R^  (  I  )  =PL  II  >  ♦  TlJF  0  (  I  »K  )  •  X  I KK  1  •  T1  *F  )  (  l  •  K  )  •  X  ( K  KK  )  ♦  TUE  2  <  I  •*  I  **00  T  <  KKK  I 

4?0  CONTINUE 


FROM  CONTROL  SURFACE  INPUTS 


IF ( NUC 1 .IE. 0)00  TO  434 
00  4?*.  Ksl.NtlCl 

424  RL I ! ) =RL ( I ) ‘TOFlSO 1 1 »K) «U(K) 
IF (NUC?. LE. 0)00  TO  436 
00  424  K=1»NUC? 

KK=NUC1 ♦ K 

428  RL ( I ) =®L ( I ) ♦TOFLSl ( I  .K)  •UIK-O 
IF (NU03.LE .0) 00  TO  436 
00  43?  K=1.NUCT 
KK=NUC 1 ♦NUC? ♦ K 

4  3?  RL ( I >  =RL  It  > ♦TOFLS?!! ♦K)»UCK«0 

436  CONTINUE 

MU=NUC 1 ♦NUC2»NUC3 


FROM  U-GUST  INPUTS 


IF  (NtlGO. LE.OIGO  TO  44H 
00  440  K  *  1  • NUGO 
KKrMU'K 

44  0  RL  (  I  )  =pL  I  I  )  ♦  T IIGO  1 1  ,K>«U(KK) 
IF (NliGl .LE.ftlGO  To  444 
00  444  Ksl.NlJGI 
KK=MU*NUG0»K 

444  PL  ( I  )  =RL  (  1  )  ♦  TIIG1  (  I  .K  )  *U  (KK  I 

448  CONTINUE 

MU=MU*wUGO ♦  NIJG 1 


FROM  V-GIJST  INPUTS 


IF (NVGO.LE.OIGO  TO  460 
00  45?  K=1 .NVGO 
KK=M(.l4K 

452  RL I  I) =PL ( I > ♦ T  VGO ( I .K)«U(KK) 
IF (NVG1 .LE.OIGO  TO  460 
00  455  K=1»NVG1 
KK  =  MU ♦NVGO  »K 

456  RL ( I » =RL ( 1 > *TVG1 I I.K)*U(KK» 

460  CONTINUE 

MU=MU*NVG0*NVG1 


FROM  k-GUST  INPUTS 


IF  INWGO.Lt  .0)  GO  TO  47? 

00  464  K=1,NRG0 
KK=MU*K 

464  RL ( I > =RL ( I> ♦TWGO ( I .K)  *UIKK> 
IF (NWG1 .LE.OIGO  TO  47? 

00  46R  K=1.NWG1 
KK=ML  *NMGO*R 

468  RL(I)=RL(D»TWG1  (I.K)*U(KK) 
47?  CONTINUE 

MU=MU  *NRGO  »NWG1  • 


FROM  STEADY  U-GUST  INPUTS 


Sl«<1660 
SI mk 1 66  1 
S [MK 1 66  2 
S IMK 1 663 
SIMK 1664 
S 1 MK 1 665 
S IMK 1666 
S I MK 1 667 
S I mk 166ft 
SIMK166R 
S I MK 1670 
5 1  mk  1  f>7  1 
S IMK 16 7? 
S1MK 1 673 
S IMK 1 674 
SIMK 1675 
S I MK 1676 
S  I  MK 16  7  7 
SIMK 167 8 
SlMKl S  F  4 
S  I  MK 1 6H0 
S I MK 1 6ft 1 
S I MK 16ft? 
S I MK 1 6ft  3 
SIMK1684 
5lMKl6ftS 
S  I  MK  1  6ft6 
S I MK 1 6ft  7 
SIMK1688 
S I MK 1 6ftR 
SIMK16R0 
S I  mk 1  69  1 
SJMK16R? 
SIMK16N3 
S 1 MK 1 694 
SIMK16R5 
S I MK 1696 
51 MK 1 697 
S I MK 169ft 
SIMK1699 
SIMK1 700 
SlMKl 701 
SI“K1 702 
SIMK1703 
SIMK l 704 
SI MK 1 705 
SlMKl  r 06 
SlMKl 707 
S I  MK 17  0ft 
S I MK 1 7  OR 
S I  MK 1710 
S I MK 171  1 
S I  MK 171? 
S I MK 1 7  1  3 
SIMK 17  14 
SIMK 1715 
51 MK 1 7  1  6 
S 1 mk 1717 
S I MK 1 7  1  8 
SIMK 1 7  1  R 
SlMKl 720 
SlMKl 721 
SIMK172? 
SlMKl  7?  T 
SlMKl  7?4 
SlMKl 725 


Figure  18.  Subroutine  SlMKl  Program  Listing  (Continued) 
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IF (NUGSO. LE.OIGO  To  484 
no  476  K  =  1  .NUGSO 
KK=MU»K 

476  RL  <  I  1  =PL  U)  ♦TUfiOl  I  ,Kl*UIKK) 

IF  (NUGSl  .LE.OIGO  TO  484 
00  48(1  K=l. NUGSl 
KK=MU*NUGSO*K 

480  PL  (II  =*RL  t  I)  ♦  TUGl  (l.Kl*U(KKl 
484  CONTINUE 

MU=MU«NUGS0*NIIGS1 

c 

C  FROM  STEADY  V-GUST  INPUTS 

C 

IF (NVGSO. LE.OIGO  TO  496 
00  488  K*l, NVGSO 
KK=MU*K 

488  Rl (I)sRL<I)«TVGO(I.K)»U(KK) 

IF  (NVGS1. LE.OIGO  To  496 
00  49?  K=1.NVGS1 
KK=MU«NVGSO»K 

492  RL  ( I  >*RL  (I)  ♦TVf.l  1 1  .K)  *ll!KK» 

496  CONTINUE 

MU=MU«NVGS0»NVGS1 

C 

C  FROM  STEADY  W-GUST  INPUTS 

C 

IF (NWGSO. LE.OIGO  To  508 
00  500  K=l. NVGSO 
KK=MU»K 

500  RL  (  I  )  =RL  (  I  ) *TWGO ( l  «K  I  «ll  (KK I 
IF (NWGS1. LE.OIGO  TO  508 
DO  504  K=1,NWGS1 
KK*MU»NVGSO«K 

504  RL(I)=RLU)*TWGI  <I.K)«U(KK) 

508  CONTINUE 

MU=MU»N*GS0*NWGS1 
512  CONTINUE 
516  CONTINUE 
C 

C  LOAD  EQUATIONS 

C 

IF (NRL. LE.OIGO  TO  716 
00  712  1=1. NRL 
J=NRT  ♦  I 
RL<J)=0.0 

IF (NXVP. LE.OIGO  TO  604 
C 

C  FROM  RIGID  BODY  VElOCTTIES 

C 

00  600  K=1.NXVP 

600  »L< J) *PL  < J) «LVPO (I,K)*X<K) ♦LVPl  (I .K1  »XOOT (K) 
604  CONTINUE 

IFINXW. LE.OIGO  TO  61? 

C 

C  FROM  RIGIO  800Y  ATT  I  TllOES 

C 

00  608  K»1.NXR 
KK=NXVP»K 

608  RLU»»RLU)*LRO(I»K)*X(KK)*LRT  ( I  *K )  *XQOT  (KK) 
612  CONTINUE 

IF (NXUE. LE.OIGO  TO  620 
C 

C  FROM  BENDING  MODES 

C 

00  616  K=1«NXUF 


StMK 1726 
SIMM  727 
S I MK 1728 
S I MK 17/9 
S I MK 1730 
SIMK 1 7  11 
SIMM  732 
SIMK) 711 
SImk 1 734 
SIMK 1 735 
SIMK1 736 
SIMM  737 
SIMM  73H 
S I mk 1 737 
S I MK 1740 
SIMM  741 
S I MK 174? 
SIMM  74! 
S I MK l 744 
SIMM  7*«5 
SlMKl 746 
SIMK 1 747 
SIMK1748 
S I MK 1749 
SIMM  750 
SIMK17S1 
SIMK 175? 
SIMM  753 
SIMK1 754 
SIMK 1 755 
S I MK1 756 
SIMM  757 
SIMK 1 758 
SIMM  759 
6 1  MK 1760 
S I MK 1761 
SIMK 176? 
SIMK ) 763 
SIMK1764 
SI MK1 765 
S  T  MK 1 766 
SIMK1767 
S I MK 1 768 
SIMK) 769 
SIMK1770 
SlMKl 771 
SIMK 1 77? 
SIMK 1773 
S I mk 1774 
S I MK 1778 
SlMKl 776 
S I MK 1777 
SIMK 1 778 
SIMK 1 779 
SIMK 1 780 
S I  MK 1781 
SlMKl 78? 
S I MK 1781 
SIMK 1784 
S I MK 1 785 
S I  MX  1  7  8  6 
S I MK 1787 
Si MK 1788 
S I MK 1 789 
S I MK 1 790 
SIMK 1791 


Figure  18.  Subroutine  SlMKl  Program  Listing  (Continued) 
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rntMkx 


(iuAA^i 


■  - . i  ateiteii 


KKrN«l/P*NKB»f 

SI «' 1 /p? 

KKK  =  NYVP"NXP"N*III  •  « 

SIM"  1  /s  1 

616 

P|  (J)=P|  (J).|  if  0  (  I  ,x  )  O  *  (r  x )  »L  E  1  <  I  >  »X  (xxx  (  "L'lF  ?  (  1  .X  >  <**UOT  (xxx  ) 

SIM") 744 

6?0 

CONTI  NliE 

SINK! 70S 

f 

SINK  1  744 

c 

ESOM  CONTPOl  snQF  arF  INPUTS 

SIMK17N7 

f 

SINK)  744 

I  E  (Mllr)  .If  .0)00  TO  436 

SIMX I 744 

no  6?-.  Kii,>jiiri 

S IMF  130  0 

6?4 

PL  (  J)  -t>L  1  J)  *1  OF  1.4  0  (  (  ,k  )  »U(X  I 

SINK) 3U) 

I  E  (  NIJC?  ,1.E  .  0  )  GO  TO  434 

S1MXI30? 

no  6?o  4=1. Mur? 

SI"""  |303 

XX=NUC 1 ♦ K 

S 1  M3  1  304 

h?n 

P|  (J)=P|  (  J»  ♦!  OFl  si  (  I  ."  1  »II|K  ) 

s I MK I ?05 

IF (NUC3.Lt .0)00  TO  434 

S I  M3  1304 

00  63?  X=1 .MUC  3 

S  I  MX  1 307 

XX=NUC) ♦Nl)C?‘X 

SlMl<1303 

hi? 

PL  (  J)  =Ol  (  J)  ♦(  OFl  S?f  J  ,4  )  •(|(K  K  1 

SIMX| 304 

436 

CONT  tNtjF 

SI  MX  1 sl 0 

MU  =  NUC1  ♦  NljC?*NuC3 

SI“K)3l  ) 

(. 

S  I  MX  1  3  1  3 

c 

F POM  i l-GUS  T  TMPUT4 

S I  MX  J  3  1  1 

c 

S  I  MX  ]  3  1  4 

IF  (Nt/r-n.Lf  .oinn  TO  443 

S I MK 1 3  1  S 

00  640  Xsl.NUGO 

S 1  MX l 3 1 4 

X  X  z  MU ♦ X 

SI  MX)  3 17 

64  0 

°L ( J 1 Z°L U) "LUGO ( 1 .K ) «U(KX) 

S I  MX |  3 1 H 

I  F  (  NIIG  1  .LE • 0 1  00  TO  443 

S I  MX  1 w l 0 

no  644  K=  1  .Nljr,’ 

S I  NX  1 w?0 

X  X  =  HtJ  ♦  MUG  0 ♦ X 

S I MK 1 3? 1 

644 

PL  (  J)  =  »L  (J)  M-UGl  I T ,X > *U(KX) 

5 ! MX  1 H?3 

CONTINUE 

S IMX 1  3?  I 

MU  =  MU*W(IG0*NIK,1 

S I  MX  1 3?4 

c 

SlMKl«?5 

c 

F PON  V-OUST  INPUTS 

SIMX] 3?6 

c 

S I  MX  1 H? 7 

K  (NV'.n.Lf  .0)00  TP  460 

SIMX1323 

OO  65?  X=l.NVGO 

S I  MX  I 3  ?  4 

XX=MU*K 

S1MK1 330 

65? 

PL  (  J)  =»l.  ( J)  «I.VO0  (  I  .X»  *U<XK) 

S I  *«K  1  3  3 1 

IE  (NVG1 .LE.OIOO  TO  460 

S I mx  J  3  3? 

00  654  K=1 . NVO 1 

SIMX1333 

X*=MU"NVGO«X 

SIMX 1 334 

454 

PL  (  J)  =PL  (  J)  *L  VG1  (T.X)*IMKX) 

51 MX) 33S 

640 

CONTINUE 

SIMXI334 

NU=HU*NVO0*NVOl 

SIMX) 3  37 

c 

5 1 MX  13  33 

c 

F  POM  *-GIJST  INPUTS 

5IMK133P 

r 

SI  MX  1 340 

IF  (NWOO.LF. 0) OO  TO  67? 

51  MX  134] 

00  66h  K=1.NWOO 

S I MX | 34? 

xx=MU*K 

SIMX  134.1 

444 

»L  '  Jl  *PL(  J>  ‘Lwon  (  I  . X  )  «ll  ( XX ) 

5 1  MX  I  34  4 

IE (NHGl .LE.OIOO  TO  67? 

S 1 MX  1 345 

no  663  K=l.MWOl 

SIMX 1 346 

kx=mu»mwgo«x 

5 I  MX  1 34  7 

660 

Bl.  (  J)  =°L  C  J)  ♦L'FO )  (l.KUIKKXI 

SIMX | 343 

67? 

CONTINUE 

SIMX1 344 

MII  =  M()»MN0(1  ♦NWF.  | 

SIMX1350 

c 

SIMX1 3S1 

c 

EPPM  STEADY  U-GllST  INPUTS 

si  mx  ms? 

c 

S I MX  1 3S3 

IE(NIJGsO. LE.OIOO  To  634 

S I  MX ] 354 

00  674  K= ! .MUGSO 

S I  MX  1 35S 

XX=MIJ*X 

5 1 MX l 354 

674 

P(  (J)=PL(J>»LMGO(l.x)»U<XXJ 

5 1  MX l 357 

Figure  18.  Subroutine  SIMK1  Program  Listing  (Continued) 


ry  o  r>  "*>  r>  n 


IF  (NUOM  .LF  .0>O0  TA  7,84 

no  ^>Bo  k=  l  •  niic.ci 

KS=MIJ»MI)<>SO»K 

D80  P(  ( J) =PL  <J) ♦  L 1  *0 1  (  I  . K  )  « II  ( K K  ) 
<>84  CONTINUE 

Mu=Nu«ntir,sn»Niio«;i 

FPOM  STEADY  V-OUST  INPUTS 

IF (NVSKO.LF.OIOO  TO  *PD 

r>o  sfh  k  =  i  .wwf,sn 

KK  =  MIJ»K 

DRR  «L ( J) =PL <  J)  *1  VO0 <  I  .K)«II(KK) 
IF (NVOSl .Lf .0)00  TO  DQD 
0.1  D48  <=l.NVr>Fl 
*KsMU»mVCiSO»K 

DP  8  »(.  <  J)  =  P|.  IJ)»LVOI  <|.K)®U(KK) 
DPS  CONTINUE 

au  =  MU*MVf,SO*NNoSl 

F00“  STEADY  W-OUST  INPUTS 

I F  ( NWOsO  •  I.E  •  0  )  00  ro  708 
00  700  K=l,UWOS0 

KK=MU*K 

70  0  PL  <  J)  =°L  (J)  ♦L'FOO  (  I  . K  )  »ll  (K<  ) 
IF  (NKOSl.LE.0HiP  TO  70h 
no  704  K=l,N«*r,Sl 
KK  =  M|J*N*GSO*K 

704  PL  (  J  1  =0L  (  J  )  ♦L'AO)  (  I  ,K  )  «ll  (K< ) 

705  CONTINUE 
mu=mu.m«c,so*nwc,si 

71?  CONTINUE 
71 n  CONTINUE 
PF  TUP  P 
En|) 


S  I  Ml- ] mSM 
S I “K  1  8S  i 
S|MK  1  8D|1 

S I mk 1 88 1 
S I MK 1  HD? 
S I mk 1  HD  1 
s  !  **k  1  884 
S  I  1  HD*-) 
s I MK | HDD 
S I MK 1 887 
S I MK 1 HDH 
SIMKIHDP 
SINK  14 70 
S (mk l h7  | 
S I MK 1 8  7 8 
SIM* 187) 
S I MK l H  74 
SIMK  1  H  7S 
DlM« 1 H7D 
SIMK  1  87  7 
S  1  MK 1 8  7  h 
S  I  mk 1  h  7P 
s I MK I  880 
S I mk 1 88 1 
SIMK 1888 
S I  MS  1 88  T 
S  I  MS  1  h8«. 
S  I  MK  1  >'  8  s 
SINK |8HD 
S I mk 1887 

S1MK18H8 
SIMK188S 
SI“K  l  8‘<0 
5j  I  MK  1  8*7  1 
SIMK  |  HP? 
SIMK184.) 


Figure  18.  Subroutine  SIMK1  Program  Listing  (Concluded) 
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SUBROUTINE  STA«*K?(  VtN.F. XDOT*  ».R|  .Ul  «  J. NNX .NNM , NNU « 
|A.8.C.0«AT.BT.CT,PT .P.O.R.S, PRINT .mS.NNS. VNS.DFSS.UN1 TS. 
2NNO.VNO.DESO.UNlTO.NNl  .VNI.OESI.UNITI • 

JMAXN.mAXM.NXM.NRM.nUM.NYM.MN.mTFH ,NST .MT.mSI .MS2.MS3.MS4.NH) 


PURPOSE  -  TO  OBTAIN  STATE  MODEL  FROM  TRANSFER  fn  REPRESENTATION 
ANAL  ISIS  -  A  F  KONAR  /  J  K  MAhESM  -  TMF  MON£Y*FLL  INC 
DATE  WRITTEN  -  1«7«; 

SUBPROGRAMS  CALLED 
OELUG 
OERRMS 
MPJS 
ODIO 
TOINVR 
DEBRM 
HPP 
NAMEL 
SImkT 


ARGUMENTS  LIST 
V 


M 

F 

AOnT 

A 

RI 

UI 

u 

NN  < 
NNR 
NNil 
A 
8 
C 
0 
AT 
BT 
CT 
DT 
P 
0 
R 
S 

PRINT 

MS 

NNS 

VNS 

DESS 

UNITS 

NNO 

VNO 

DESO 

UN!  TO 

NNT 

VNI 

OESI 

UNIT  I 

MAYN 

MAXM 

NAM 

NRm 

NUm 


IN/OUT 

IN/OUT 

IN/OUT 

IN/OUT 


IN/OUT 

IN/OUT 

IN/OUT 

IN/OUT 

IN/OUT 

IN/OUT 

IN/OUT 

IN/OUT 

IN/OUT 

IN/OUT 

IN/OUT 

IN/OUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 


V  ARRAY  FOR  COMPUTING  SIMULATION  MATRIX 

■  ARRAY  FOR  COMPUTING  SIMULATION  MATRIX 

SIMULATION  MATRIX 

array  FOR  STATE  DERIVATIVES 

ARRAY  FOR  STATES 

ARRAY  FOR  INTERNAL  OUTPUTS 

ARRAY  FOR  INTERNAL  INPUTS 

ARRAY  FOR  FATERNAL  INPUTS 

ARRAY  FOR  STORING  STSTEM  DIMENSION  NA 

array  FOR  STORING  SYSTEM  DIMENSION  nr 

ARRAY  FOR  STORING  SYSTEM  DIMENSION  NU 

STaTf  transition  MATRIX 

CONTROL  input  MATRIX 

state  output  matrix 

CONTROL  OUTPJT  MATRIX 

ARRAY  FOR  STORING  TR  FUNCTION  QUADRUPLE  A 

ARRAY  FOR  STORING  TR  FUNCTION  QUADRUPLE  B 

ARRAY  FOR  STORING  TR  FUNCTION  QUADRUPLE  C 

ARRAY  FOR  STORING  TR  FUNCTION  OUAORUPLE  0 

interconnection  quadruple 

INTERCONNECTION  QUADRUPLE 
INTERCONNECTION  quadruple 
INTERCONNECTION  QUADRUPLE 
STORES  TRANSFER  FUNCTION  DATA 
TRANSFER  FUNCTION  DATA 
NUMBER  ARRAY  FOR  STATE 
VARIABLE  NAME  ARRAY  FOR  STATE 
DESCRIPTION  ARRAY  FOR  STATE 
UNIT  ARRAY  FOR  STATE 
NUMBER  ARRAY  FOR  OUTPUT 
VARIABLE  name  ARRAY  FOR  OUTPUT 
DESCRIPTION  ARRAY  FOR  OUTPUT 
UNIT  ARRAY  FOR  OUTPUT 
NUMBFR  ARRAY  FOP  INPUT 
variable  name  ARRAY  FOR  INPUT 
DESCRIPTION  ARRAY  FOR  INPUT 
UNIT  APRAY  FOR  INPUT 

MAXIMUM  ROW  DIMENSION  FOR  SIMULA  MATRIX  F 
MAXIMUM  COLUMN  DIMENSION  FOR  SIMU  MATRIX  F 
MAXIMUM  NUMBER  OF  STATES 
MAXIMUM  NUMBER  OF  OUTPUTS 
MAXIMUM  NUMBER  OF  INPUTS 


Figure  20.  Subroutine  STAMK2  Program  Listing 


STAMK2  a 
STAMK?  3 
STAMK?  4 
STAMK2  5 
STAMK?  6 
STAMK?  T 
STAMK2  B 
STAMK2  9 
STAMK210 
STAMK211 
STAMK212 
STAMK213 
STAMK214 
ST  AMK?  1 5 
STAMK216 
STAMK?17 
STAMK218 
STAMK219 
STAMK220 
STMMK221 
STAMK222 
STAMK223 
STAMK224 
STAMK225 
STAMK226 
STAMK227 
STAMK228 
STAHK2J9 
ST  AMK230 
STAMK231 
STAMK232 
ST  AMK233 
STAMK234 
STAMK235 
STAMK236 
STAMK237 
STAMK238 
STAMK239 
STAMK240 
STAMK241 
STAMK242 
STAMK243 
STAMK244 
STAMK245 
ST  AMK246 
STAMK247 
STAMK248 
STAMK249 
STAMK250 
STAMK251 
STAMK252 
STAMK 253 
STAMK254 
STAMK 255 
STAMK256 
STAMK257 
STAMK 258 
STAMK259 
STAMK260 
STAMK 261 
STAMK262 
STAMK263 
STAMK264 
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o  o  o  oon  nnrt  o  o  o  r>  n  n  n  n  n  n  n  n  n  r>  n 


NY  • 

i  npu  r 

MH 

Input 

MT.  P 

Input 

MSt 

INPUT 

MT 

INPUT 

“SI 

INPUT 

MS’ 

INPUT 

MS  X 

INPUT 

MS'. 

INPUT 

NR 

INPUT 

Ol"ENcION 
OIMEN^ION 
DIMENSION 
DIMENSION 
0 1 MENS  I ON 
DIMENSION 
OIMENSJON 
0 1  HENS  I  ON 
DIMENSION 
DIMENSION 
OIMENc ION 
DIMENSION 
DIMENSION 
01 MENS |0N 


maximum  DIMENSION  FOR  InTEBCONN  EQUATIONS 
MM1MU-  NO  or  SUBSYSTEMS  FOR  COMBINING 

max  no  or  transfer  en  oloc«s  for  combining 

max  POxER  Of  S  IN  THE  TRANSFER  ruNCTION 
MAX  NO  or  TERMS  IN  The  TRANSFER  FUNCTION 
MAXIMUM  DIMENSION  EOB  SCRATCH  ARRAY  SI 
MAXIMUM  DIMENSION  rOB  SCRATCH  ARRAY  S2 
MAXIMUM  DIMENSION  rOB  SCRATCH  ARRAY  S3 
MAXIMUM  DIMENSION  rOR  SCRATCH  ARRAY  S4 
MAXIMUM  SYSTEM  NO  -  IMPLICIT  MODEL 

COMMO*  / 1 NOUT /  IR. IN. ! PRINT . I nSE»T . LOCATE . NULL . MARK  1201  *  UN. JO. JS 
COMMO  i  /SYS/  SCODE.SOFS (5) . mSYS . HE AD ( 20 > « NSYS ( Q > « SHEAO C9.20 > 

1  .  PHF  A''  (  ?C  I 
COMMO  I  /SCI/  SKI) 

DIMENSION  OESSS(NXM.m.MB)  .  UN  I  T  SS  ( NXM.4.MP  t 
OESOO ( NBm , I c .  MH ) ,uNITOO(NRM.m.MR) 

DESK  (NUM.I  (i .  mh  >  *  UN  T  T  1 1  (NUM.r.mrj 
NX  X  (  MB  )  •  NRR  (  MB  )  .NliU(MB) 

V(MAXN)»W(MAXM).r (MAXN»“AXM) 

XDOT (MST.MTfR) .X (mST .MTrp) ,BI I I.MTra*  till ( 1.MTF0I 
tl(NUM)  .NUXIMTrB)  .nNm(mTFP)  ♦NNUIMTEB) 

AINXM.NXMI  •H(NXM.NUM) ,C(NRM,NXM) «D(NBM,NUMI 
at (MST.MsTtMTEbl .PT (MST. 1 .MTER) 

CT« I .MST.MTPH) .DT a.I.MTEB) 

PIMTrn.MTrfll  .0(MTcH.NUMl  ■  R ( nRM • MTFB) .SINRK.NUM) 
PRINT(?.mT) ,mS< x.mT.mTFB) 

NNS(NXM) <  VNS < NXM  *  ? ) , D£SS(NXM.1C>*UNITS(NXM.4I 
NNO(NRM) ,VNO(NRM, 9> ,OESO ( NRM. 1 0) .UNI TO ( N»M .4 1 
NN I (NUM) aVNI INUMa?)  , OES  I  ( NUN. 1 0 1 • UNIT  I (NUN. At 
IFdPnlNT.EQ.MCALL  DEPUG)  l  .4mSTAm,AH<2  «2.0<TN> 

Ll«l  «  L2*LI*NXM*mp»1o  t  L3*L?«NXM*MB»4  %  L4»LT»NBM*MB»10 
LS«L4.NRM»MH*A  %  L4*LS»NUM*mH*I0  *  lT«L4*NUM»MP*4 
L8«L7«MR  S  lR«L8«mp  %  LI0*LR*MS 
iriLl  .GT.MS1) 

ICALL  ->ERRM)U0.MS?.MS3tMS4,MSI  tMS?.MS3.MS4.2.0.4MSTAM,4HM2  .  IWt 
IF  (  IP1?  INT .EO.MCALL  0ERUG(P,4.h$TAM,(,h<2  .2.0.10) 

NBI*0  *  N»2*n  %  NBTxO  %  NU!*0  S  Nll?»0  f  NU3«0 
NXA* )  1  NR A*0  »  NUA*0 

FPSF*'.0E-33  *  T*0 .0  *  IN  I T*0  S  NFLAG-C 

IF  (  (  IC.RINT.EO.1)  .OR.  )  IPRINT.GT.A)  »CALL  hPR(hEAD.IM) 

INITIALIZING  CALL  TO  SIMKT 

NX *0  s  NYxp  %  NR  =  f;  «  NU«0 
N1 >1  x  N2=N|.NX  S  m3»N?*NY 

CALL  s JHKTIVINI )*W(N?I  .V(N3) *XOOT.X»RI.UI.U.NNX.NNR*NNU» 
IAT.RT.CT.DT.PR!NT.hS*P.O*R*S.NX»NY*NR»NU»NMAX.MTFB.MST. 
2MT.NUM.NRM, INIT.TI 

ID  IP^INT.EO.AICALL  OERUG < 3 .4mSTAM,am<?  .2.0.  IN) 

CHFCK  FOR  DIMENSION  ERROR 

INIT  s  1 

Mx?*N<.NY»N'J 

NxNX.-iV.NR 

IF) (N» .GT.NXM) .OP. (NR.GT.NRm) .OR. (NU.GT.NUM) .OR. (NY.GT.NYM) I 
ICALL  OERRM5(NX.NR.NU*NY»NXM,NRM,NUM.NYM.2,0*4HSTAM»4HK2  • I M > 

Nl»l  <  N2aNl »NX  *  n3«N2»NY 

ZERO  ’UT  XDOT .Bl.Uf.X.U 

00  1C  NN*1 .NMAX 
MX«NN« (NN) 

00  10  J* I »MX 
XDOTI  i.NNI-0.0 


STAMK265 
S TANK 26 A 
STAMK267 
STAMK26B 
STAMK269 
STAMK270 
STAMK271 
STAMK272 
STAMK273 
STAMK274 
STAMK275 
STAMK276 
STAMK277 
STAMK278 
STAMK279 
STAMK280 
STAMK2B1 
STAMK2B2 
STAMK283 
STAMK2B4 
STAMK285 
STAMK286 
STAMK287 
STANK 286 
STAMK289 
STAMK290 
STAMK29I 
STAMK292 
STAMK293 
STAMK294 
STANK 295 
STAMK296 
STANK297 
STANK298 
STANK299 
ST  ANK 100 
STAMK101 
STANK  1 02 
STAMK103 
STAMK104 
STANK  1 05 
STAMK106 
STANK  107 
STANK  108 
STANK 109 
STANK  1 10 

stankui 

STANKH2 
STANK  113 
STANK  1 14 
STANK1 15 
STANK  1 16 
STAMK1 17 
STAMK1 16 
STAMK1 19 
STAMK 120 
STANK  1 21 
STAMK122 
STAMK123 
STANK 124 
STANK125 
STAMK | 26 
STANK127 
ST  ANK 128 
STANK  129 
STANK  130 


Figure  20.  Subroutine  STAMK2  Program  Listing  (Continued) 
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1 2 


1  3 
I  I 


14 

C 

C 

r 


sr- 

c 

c 

c 


wb***'"’""*  “* 


X  (  J  .  N  t  =  >,  , 

00  11  NN=1.N'*A« 
MX  =  NN .  (NN) 

no  1?  j=  I .mx 

PI  (J.  -.N)=  j.P 
MXsNN  i  (NN) 

00  13  Jsl.MX 
U!  (J.  if|)=j.-‘ 
CONT  I*  ll£ 

00  14  1=1. NU 
0(11=  .  , 


COMPUrr  PAPT  (ALS  KPT  STATE  DF*  I V A  f  I  VF  S 


JJ  =  ' 
00  5* 
MX=NN 
00  SO 
JJ=JJ 
XOOT  ( 
CALL 
IAT.BT 
?MT.NU 
XOOT  ( 
00  SO 
F(  J  ,J 


NN= 
X  (NN 
J=1 
♦  1 

I .  NN 
I 'IK 

.CT. 
i  .NR 
I .  NN 
1  =  1 
l)  =N 


t  .NMA* 
) 

.MX 


1  =  )  , 


T (V (Ml ) .V (N?) *  V  <N2l • XOOT .X .SI .UI .O.NN* .NNR.NNU. 
IJT.PP INT.hS.p.O.S.S.NX.NY.NR.Nj.NMAX.MTFS.MST  . 

M  .  1  N  I  T  ,  T  ) 

)  =  •' . 

.  N 


(I! 


COMPUTE  PART  I  ALS  «PT  INTERNAL  OUTPUTS 


leo 

c 

c 

c 


00  1?  NN=1.NMAX 
MXsNN  •  (NN) 

no  io  j= i . mx 

JJ*JJ.l 
R I  <  J .  iN )  =  1  . 

CALL  ■>  TMKT  (  V  (  NI  )  .  V  ( N?  )  .  V  (N3  I  . x DOT . X , B I , J 1 . U , NNX ,NNP . NNU » 
1  AT.RT.CT.OT.PRINT.i-iS.P.O.D.S.NiX.NY.NR.N'J.NMAX.MTFH.MST. 
2MT  «  MU'  .NRM . INI T. T) 

RT  (  J.mM)=i). 

00  1?  1  =  1.  K 
FII.JIUVIII 


COMPUTE  PART  I ALS  KPT  INTERNAL  INPUTS 
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00  15  NN= 1 . NM  A  X 
MXsNN'l  (NN) 
no  15  .  J=1 .MX 
J J= J J ♦ 1 
UI (J."N)  =  1  . 

CALL  :  IMKT  (  V  ( N 1  )  .  V  (N?  I  .  V  (N3>  .  XOOT  .  X  .  W  I .  J1  .U.NNX  .NNR  .NNIU, 
I AT.PT .CT.OT. PR  I NT. PS.P.O.R. 0* NX. NY. NO. NU.NM AX. mTFB.MST . 
2MT.NUm.NRM. in it, T) 

UI ( J.VN) =  0  . 

no  is  i  =  i, n 

F  ( I ,  J  ))  =V  (  1  ) 

IF(IPoINT.EO.ft)CALL  DPPUG( A ,4hST Am. 4H<?  ,2.0.1m) 


COMPUTE  PARTI ALS  WPT  STATES 


00  ?C 1  NN=1»NMAX 
MX=NNX (NN) 

no  ?ai  j=i»mx 
JJsJJ.l 
X(J.N  >)=1. 

CALL  S IMKT (V(Nl).V (M2 ) . V (N3  *  * XDOT.X.RI.UI .U.NNX .NNR.NNU. 
1AT,8T.CT.0T,P»INT.HS,P«0,R.S,NX,NY,NR,NU»NMAX,MTFB.MST, • 
?MT.NU“.NRM» INTT.T) 


ST  AMK 1 31 
STAMK132 
STAMK 1 33 
ST  AMK 1 34 
ST  AMK 1 35 
STAMK 1 36 
ST  AMK 137 
STAMK 1 3» 
STAMK 1 39 
STAMK1A0 
STAMKIaI 
STAMK142 
ST  AMK 143 
ST  AMK 14^ 
STAMK 1 45 
STAMK 146 
ST  AMK 147 
ST  AMK 146 
ST  AMK 149 
ST  AMK 150 
STAMK151 
STAMK 152 
STAMK 153 
ST  AMK 154 
ST  AMK 155 
STAMK 156 
STAMK 157 
ST  AMK 1 58 
ST  AMK 1 59 
STAMK160 
STAMK 161 
ST  AMK 162 
STAMK163 
ST  AMK 1 64 
ST  AMK 165 
STAMK166 
STAMK 167 
STAMK 168 
STAMK 169 
ST  AMK 170 
STAMK 171 
ST  AMK 172 
STAMK173 
STAMK 174 
STAMK 175 
STAMK176 
ST  AMK 177 
STAMK178 
ST  AMK 179 
STAMK180 
STAMK1B1 
STAMK 1 82 
STAMK183 
ST  AMK 1 84 
ST  AMK 185 
STAMK 186 
STAMK 187 
STAMK 188 
STAMK 189 
STAMK190 
STAMK191 
STAMK192 
STAMK193 
ST  AMK 194 
STAMM  95 
STAMK 196 


Figure  20.  Subroutine  STAMK2  Program  Listing  (Continued) 


105 


.A;' ' .....  ,  - 


uthyaHStiUtSik 


uoo  oo<_>  uou 


X(  J.N'Uxi. 

00  201  1=1. N 

201  fll.J  i)  =V  <  I  > 

IF  (  IP ->INT  .£0.61  CALL  DFHUG(5.4mSTAM.4m<2  .2.0. Tull 

COMPUTE  PAR T  I ALS  WRT  EXTERNAL  INPUTS 

00  25  I  J  =  1  .fill 
JJsJJ.l 
U  ( J )  = !  . 

CALL  SIMKT  (V  INI)  »'/  (N?>  .V(M3>  »  XOOT  «  X  .  R  I .  U I  .U.NNX  ,NNR  ,NNU. 
IAT.BT.CT.DT.PRINT .hS.p.0.R.S»NX,NY.NR.NU.NMAX.»*TF8.MST. 
2MT.NUM.NRM.INIT.T) 

U(J)=  •. 

DO  251  1  =  1. N 
251  F|!.JII=V1II 
1002  CONTINUE 

COMPUTE  THE  SIMULA? 10m  MATRIX 
NV*NX.NY 

IE t  IPOINT.E0.61CALI  MPBS (F , u A*N .MftXM , M»  T •  4HS ? M  ) 

00  51  1=1. NV 
DO  52  J=l. NV 

52  F ( I . J i =“F ( I , J ) 

51  F(I,I)=F(I,I>*\. 

CALL  TOIMVRt I  SOL.  IOSOL «NV . -w  , r .MAXN.K0lJM.0ET ) 

IB=NV.l 
I E  *NV .NR 
JB*  lb 
JE=M 

00  S3  I=IH.IE 
DO  53  J=JH,J£ 

00  53  K=1.NV 

53  F(I,Ji*F(I,JI*F(I.k)*f(k.J) 

00  S3-i  1  =  1, IE 

00  53  J=1.JC 

IF(ABc(F<i,J)).lE.fPSf)  FII.JI  =  0.0 
530  CONTImUE 

IF( IPpINT.EO.AICALL  MoRS (F »MAXN»MAXM«'I.M,T» 4hS I MI ) 

FORM  a.B.C.D  MATRICES 

Jl=NV.l 
J2=NV.NX 
J3=J1 *NX 
J4= J2*NU 
IlxNV.l 
I 2=NV  »NR 
00  60  1  1=1, NX 
00  60  1  J=J1,J3 
JJ=J-  11  *1 

6001  A  <  I  *  J.l >  =F  ( I  ,  J ) 

00  60  ?  1=1. NX 
OO  60  2  J=J3,  )<* 

JJ  =  J-  13* 1 

6002  B ( I , J  l)=F(I.J) 

00  60- 3  1=11,13 

I  I  =  T-t 1*1 
00  60  3  J=J1.J3 
JJ=J- J1 *1 

6003  C(U*  I  J)  =F  ( I  *  J> 

00  60  4  1=11.12 

00  60  4  J= J3 ,  J-* 
jj=j-  n»i 


ST  AMK 197 

STAMK198 

ST  AMK 1 99 

ST  AMK200 

STAMK201 

ST  AMK?02 

STAMK203 

ST AMK 204 

STAMK205 

STAMK206 

ST  AMK207 

STAMK20B 

ST  AMKJ09 

STAMK210 

STAMK211 

STAMK212 

STAMK213 

STAMK214 

STAMK21S 

STAMK?16 

STAMK217 

ST  AMK21 3 

ST  AMK2 1 9 

STAMK220 

STAMK221 

STAMK222 

STAMK223 

STAMK224 

STAMK225 

STAMK226 

STAMK227 

STAMK223 

STAMK229 

STAMK230 

STAMK231 

STAMK232 

STAMK233 

STAMK234 

ST  AMK235 

STAMK236 

STAMK237 

STAMK238 

STAMK239 

STAMK240 

STAMK241 

STAMK242 

STAMK243 

STAMK244 

STAMK245 

STAMKc46 

STAMK?47 

5TAMK243 

STAMK249 

STAMK250 
STAMK251 
STAMK252 
STAMK253 
STAMK254 
STAMK255 
ST AMK 256 
STAMK257 
STAMK258 
STAMK259 
STAMK260 
STAMK261 
STAMK262 


Figure  20.  Subroutine  STAMK2  Program  Listing  (Continued) 


or* o  (Vi  o 


6004  0(11*  I J  >  *F ( I  *  J i 

READ  iNU  UPOATE  name  list  data 
KflaNNA  X 

CALL  NANEL INNS* VNS.DESS.UNI TS.NNO* VN0.0ES0.UNIT0.NNI * VNI ♦ 
10ES1  «MNITI«S1  (LI  )  «Sl  <L2 )  « S 1  <L  31  * S I  (L4 )  «SI  (L5)  » S I  (L6)  * 
2SHL7t  .SI  (LR>  »S1  <L9)  .NXN.NRM t  NUN.NX  «NR«  NU.NFLAG.NB .KB.NB) 
IF  I1PPINT.EQ.6)CALL  DF8UG(6«4HSTAM*<.n<2  .2.0. IV) 

WRITE  OUAORUPLE  DATA  ON  FILE  DDATA 

I0«0 
NFLAG*? 

NXA*N«  %  NRA*Ne  «  NUA*NU 

CALL  QDIO(A*B«C«D*A  .NX  «NR  .NU.NXN.NRN*  NIJW.  NX  A.NRA.NUA* 

1NRI *NP?*NR3*NU1  .NU2.Nl  13 . T . 10. IPR INT * I*. JU. MEAD. NARK. 
2LOCATF .NULL. INSERT .HFl AG) 

IF(IP-JINT.E0.6)CALL  OF  BUG  (  7 .4*iST  AN.4HX2  .2.0. IW) 

RETURl 
ENO 


STANK 263 
STANK 264 
STANK265 
STANK 266 
STANK267 
STANK268 
STANK269 
STANK270 
STANK27J 
STANK272 
STANN273 
STANK274 
STANK27S 
STANK276 
STANK277 
STANK278 
STANK279 
STANK280 
STANK281 
STANK282 
STANK283 


Figure  20.  Subroutine  STAMK2  Program  Listing  (Concluded) 
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HWiHH 


mmt* 


SUBROt.T  1NE  SIMKT  (XnOTt  •  Yl  .Rl  «  *OOT  .  X  .R  I  . UI  .U.NNX.NNR  iNWi 
|*T.  BY.  Cl  .01  •  PRINT  .hS.P.O.R.S.NX.NY.NR.NU.NMAX.mTFB.NST  • 
?m .NUM.NRN, IN  IT . T ) 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


purpose  -  to  combine  subsystem  blocks  khich  are  described  by 
RATIONAL  TRANSFER  functions 

ANAL  ISIS  »  A  F  KONAR  /  J  K  mAhESH  -  THE  lONEYKELL  INC 
DATE  WRITTEN  -  197s 


subprograms  called 

DEBUG 

INPT 

PMFRR 

TRaNSK 

dfn 

MPRS 

TPQ 

ZERO 


XDOTL 

OUTPUT 

ARRAY  for  derivative  of  STATE 

YL 

OUTPUT 

ARRAY  r0R  Y  EOJATION  VARIABLE! 

RL 

OUTPUT 

ARRAY  for  EXTERNAL  RESPONSE  VARIABLES 

NX 

OUTPUT 

NUMBER  of  STATES 

NY 

OUTPUT 

NUMBrR  OF  Y  EO JAT IONS 

NR 

OUTPUT 

NUMBFN  OF  outpjts 

NU 

OUTPUT 

number  of  inputs 

NMAX 

BLOCK  NO  OF  TRANSFER  FUNCTION 

INIT 

INPUT 

INITIAL  mode  flag 

T 

OUTPUT 

SAMPLE  time 

other  PARAMETERS  are  defined  in  calling  program 


COMMON  /INOUT/  IR. IX. IPR INT , INSERT .LOCATE .NULL . NARK (20* . JN. JO, JS 
DIMENSION  XOOTL(NX) .Yl INT) ,RL(NR) 

DIMENSION  XDOT (NST.MTFB) .X(mST.MTFB) .RI ( l.MTFB) .UI ( 1.MTF8) 
DIMENSION  U(NUM) ,NNX (MTF8) «NNR (MTFB » . NNU IMTFB 1 
DIMENSION  AT (MST .MST .MTFB) .BT (MST . l.MTFB) 

OIMENSION  CT ( I .MST, MTFB) ,0T ( I . I .MTFB) 

DIMENSION  PCMTFB. MTFB) .O(MTFB.NUM) ,R(NRM, MTFB) .S(NRM.NUM) 
OIMENSION  PRINT (2.MT) .MS  <2,wT .MTFB) 

OIMENSION  CAR0I2B) .IHEA0I3) 

OATA  mC.MENO.MBLOC.MK.HOCLA.MV/IHC. AMEND  .AHBL0C1HK.AMDELA.1HT/ 
DATA  hUIR.MI .HUIU.hRRI .HRU/AHUl/R.AHI  .AHJI/U.AHR/RI.AHR/U  / 

IF ( IPR INT «E0.6) CALL  DEBUG  1 1 . AmSIMK • AMT  .2.0. IX) 

IF(INIT.NE.O)  GO  To  10# 


C 

C  INITIALIZE 

c 

NBK-0 

T-#.# 

00  1#?#  1-1.2 
00  10?#  J-1.*T 
DO  1#?#  K-l.MTFB 
1020  MS ( I  * J.K ) ■#•# 

CALL  2E«0(P. MTFB. MTFB) 

CALL  ZERO <0. MTFB .NUN) 

CALL  ZERO IR.NBM. MTFB) 

CALL  ZEROIS.NRM.NUM) 

IFC(IPRINT.E0.3>.OR.<!PRINT.GT.4))-RITE«I*.1030) 

IBS#  FORMAT (//.20X.AIH—*-  TRANSFER  FUNCTION  OATA  FOR  BLOCKS  •••♦//) 

104#  continue 

RE AD (TR. 1000) CARD 


SIMKT 

2 

SIMKT 

3 

SIMKT 

4 

SIMKT 

S 

SIMKT 

6 

SIMKT 

7 

SIMKT 

8 

SIMKT 

9 

SIMKT 

10 

SIMKT 

11 

SIMKT 

12 

SIMKT 

13 

SIMKT 

14 

SIMKT 

15 

SIMKT 

16 

SIMKT 

17 

SIMKT 

18 

SIMKT 

19 

SIMKT 

20 

SIMKT 

21 

SIMKT 

22 

SIMKT 

23 

SIMKT 

24 

SIMKT 

25 

SIMKT 

26 

SIMKT 

27 

SIMKT 

28 

SIMKT 

29 

SIMKT 

30 

SIMKT 

31 

SIMKT 

32 

SIMKT 

33 

SIMKT 

34 

SIMKT 

35 

SIMKT 

36 

SIMKT 

37 

SIMKT 

38 

SIMKT 

39 

SIMKT 

40 

SIMKT 

41 

SIMKT 

42 

SIMKT 

43 

SIMKT 

44 

SIMKT 

45 

SIMKT 

46 

SIMKT 

47 

SIMKT 

48 

SIMKT 

49 

SIMKT 

50 

SIMKT 

51 

SIMKT 

52 

SIMKT 

53 

SIMKT 

54 

SIMKT 

55 

SIMKT 

56 

SIMKT 

57 

SIMKT 

SB 

SIMKT 

59 

SIMKT 

60 

SIMKT 

61 

SIMKT 

62 

SIMKT 

63 

SIMKT 

64 

Figure  22.  Subroutine  SIMKT  Program  Listing 
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OC*o  I  Don  non  non 


1*69  FORMAT  (20A4) 

DECODE I A» 1 199 t CARO (1)1 CC.OUMMY 
1199  FORMAT (A1 t A3) 

IF (CC.EQ.HC)GO  TO  1040 
IF (CARO ( 1 ) .EO.HENO) GO  TO  1480 
IF (CAROl 1 > .NE.hBLOCIGO  TO  1440 
8LK1*CARD<1> 

OECOOE (4,1129.CAR0(2) ) BLK2 t nBKNO t OUMM T 
1129  FORMAT (A1 *  12.  A1 ) 

BKD 1 “CARO ( 3 ) 

BK02-CAR0<4> 

if<8Lk2.ne.hk>go  to  i aao 

N-NBKnO 

NBK-NBK«1 

IF(N8K.GT.MTF8)G0  TO  1199 
00  11?5  1-1.3 
1125  IHCAD( I ) -CARO ( I ) 

IF  (  (BKDl.EQ.HOEl- A)  .and.  (BKpp.EQ.HY) )G0  TO  1300 
IF(IPRINT.EQ.6)CALL  DEBUG(2.4hSIMk.4hT  .2.0. T9) 

RCAO  RATIONAL  TRANSFER  FUNCTION  DATA 

CALL  7ER0 (PRINT. 2. MT) 

CALL  INPT(PRINT,2.MT) 

00  1130  1-1.2 
00  1130  J-l.MT 
139  MS (I .J.N) -PRINT ( I «J) 

00  1169  I-l.MT 

IF(MSll.I.N) .NE .0 . 0 ) NNX (M) *  j- 1 
IF(MS(2.1.N),NE.0.0)NNX(N1-I-1 
169  CONTINUE 

1F(MS(2,1.N).N€,9.0)00  TO  1 ?90 
PPINT  ERROR  MESSE6E 
MR1TEIIM.1I89) 

1199  FORMAT (1H1,//,1X.37hTRANSFEP  FUNCTION  SPECIFICATION  ERROR) 
STOP  111 
1199  CONTINUE 

99 1 TE (19.1195) 

1195  FORMAT ( 1M1 * // * 29HT00  MANY  BLOCKS  FOR  COMBINING) 

STOP  111 

PRINT  THE  transfer  function 

1299  CONTINUE 

1F( (IPRINT.Ng.3) .AND. ( IPRINT.LT.5) )G0  TO  1040 
NN1-NNXINI *1 
00  1249  1-1.2 
00  1249  J-1.MN1 
1244  PRINT (I.J)-MS(t. J.N) 

CALL  TPR<PRINT.NN1 .MT, IHCAO.T. 19) 

_  90  TO  |*49 

1399  C99T19UE 

1F(IPRINT.T0.4)CALL  DEBUG(3.4mSIMK.4HT  ,2.9,19) 

RCAO  TIRE  OELAY  SPECIFICATION 

RCAfrX  IP. 1 320) TO. XX, XR .UU.ONEGM .OELPMM.NO »NN 
13*9  POHHATtOClt. 9.212) 

IF<T0.9T.4.4>00  TO  1389 
IF1UU.E«.4.9)00  TO  1349 

jr*t*«U.4.9)80  TO  1349 
W  7f  1399 

tfe#  imriNuc 


SIMKT  65 
SIMKT  66 
SIMKT  67 
SIMKT  68 
SIMKT  69 
SIMKT  70 
SIMKT  71 
SIMKT  72 
SIMKT  73 
SIMKT  74 
SIMKT  75 
SIMKT  76 
SIMKT  77 
SIMKT  78 
SIMKT  79 
SIMKT  80 
SIMKT  8 1 
SIMKT  82 
SIMKT  83 
SIMKT  86 
SIMKT  85 
SIMKT  86 
SIMKT  87 
SIMKT  88 
SIMKT  89 
SIMKT  90 
SIMKT  91 
SIMKT  92 
SIMKT  93 
SIMKT  94 
SIMKT  95 
SIMKT  96 
SIMKT  97 
SIMKT  98 
SIMKT  99 
SIMKT100 
SIMKT101 
SIMKT102 
SIMKT103 
SIMKT104 

SIMKT 195 
SIMKT106 
SIMKT 1 07 
SIMKT 108 
SIMKT 1 09 
SIMKTUO 
SIMKT1U 
SIMKT112 
SIMKT  1 1 3 
SIMKT 1 14 
SIMKT115 
S I MKT  1 16 
SIMKTUT 
SIMKT 1 18 
SIMKT119 
SIMKTUO 
SIMKT 121 
SIMKT 1 22 
SIMKT123 
SIMKT124 
SI MKT  125 
SIMKT126 
SIMKT127 
SIMKT 128 
SIMKT129 
SIMKT130 


Figure  22.  Subroutine  SIMKT  Program  Listing  (Continued) 
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c 

C  PRINT  ERROR  MESSEGE 

c 

WRITE! IW. 1368) 

1360  F0RMAT(1H1.//,IX.30HTIME  OELAY  SPECIFICATION  ERROR) 

STOP  III 
1380  CONTINUE 

IflOMrGM.NE. 0.0)G0  TO  1400 

IF( (NO.EO.O) .OR. (NN.EQ.O) IGO  TO  1340 

CALL  0FN<HS.MT.MTFR.N0.NN.N.TD« IPRINT.IW) 

NNX(N)*ND-I 
GO  TO  1200 
1400  continue 

IF(DElPHM.LC.O.O)GO  to  1340 
00  14?0  N0*2.5 
NNX (N>  *ND-I 
NDM*Nf) 

IF (NO.EO.S) NON *4 
DO  14?0  NN=1,N0M 

CALL  OFN (HS.MT.MTFfl, NO. NN.N, TO, IPRINT.IW) 

CALL  PHERR I  MS .MT.MTFB. NO. N.ONEGM. TO. OELPH. IPRINT.IW) 
IF(0ELPM.LE.0ELPHM)G0  TO  1200 
1420  CONTINUE 

WRITE! I W. 1430) DELPWM. OELPH 

1430  F0RMAT(1H1.//.1X.3«hTiME  DEL**  SPECIFICATION  CANNOT  BE  NET.//. 
I l X . 20h ALLOWED  PHASE  ERROR* . E 12.6. //. 

21 X . 20hACTUAL  PHASE  ERROR  *.Ei2.6.//> 

GO  TO  1200 
1440  CONTINUE 
C 

C  PRINT  ERROR  NESSEGE 

C 

WRITE ( IW. 1460) 

1460  FORMAT (1H1.//.1X. 37HOAT A  CONTROL  CARO  SPECIFICATION  ERROR) 

STOP  111 
1480  CONTINUE 
nmax*mbk 

IF(IPP1NT.EQ.6)CALL  0EBUGI4.4HSIMK.4HT  .2,0. IW) 

C 

C  COMPUTE  QUADRUPLES  FOR  ALL  BLOCKS 

C 

00  1540  NM.NMAX 

CALL  TRANSK (NNX.NNR.NNU.AT.bT.CT.DT.PRINT.HS, 
IMST.MT.MTFB.N.NUM.nRM, IPRINT.IW) 

1540  CONTINUE 
NX»0 

00  1540  N*1.NMAX 
NX.NX.NNX (N) 

NNU (N ! *  1 
1560  NNR (N) *  1 
NY*2«NMAX 

c 

C  READ  INTERCONNECTION  QUADRUPLES  AND  PRINT  THEM 
C 

1580  CONTINUE 

READ! TR* 1 060 1  CARO 


S I MK  T 1 3 1 
SIMKTI32 
SIMKT | 33 
SIMKT134 
S I  MK  T 1 35 
SIMKT 1 36 
SIhKT137 
SIMKT130 
SIMKT 139 
SIMKT140 
SIMKT14I 
SIMKTI42 
SIMKT 143 
SIMKT 144 
SIMKTI4S 
SIMKT146 
SIMKT147 
SIMKT 148 
SIMKT149 
SIMKT150 
SIMKTlSl 
SIMKT152 
SIMKT 153 
SIMKT154 
SIMKT 155 
SIMKT1S6 
SIMKTI57 
SIMKT 158 
SIMKT159 
SIMKTI60 
SIMKT161 
SIMKT162 
SIMKT163 
SIMKT 164 
SIMKT165 
SIMKT166 
SIMKT167 
SIMKT168 
SIMKT169 
SIMKT170 
SIMKT 1 71 
SIMKT172 
SIMKT173 
SIMKT 174 
SIMKT175 
SINKT176 
SIMKT177 
SIMKT 178 
SIMKT179 
SIMKT 180 
SIMKTlSl 
SIMKT182 
SIMKT1S3 
SIMKT1S4 
SI MKT 185 
SIMKT1S6 


DECODE (4. llOO.CAROd ) ICC* DUMMY  SIMKT187 
IF (CC.EQ.MC)GO  TO  1580  SIMKT1S8 
IF(CAoO(l).EQ.HENO)GO  TO  1600  SIMKT 189 
IF ( (CARO! 1 ) .EQ.HUIP) .AND. (C ARD ( 2 ) .EQ.NI I ) CALL  INPT (P.MTFB.MTFB)  SIMKT 190 
IF((CARO(1).EO.HUIr).ANO.(CARO(2).EQ.MI))GO  TO  15A0  SIMKT 1 91 
IF(CAR0!1».EQ.HUIU)CALL  INPT (Q.MTFB.NJM)  SI  MKT  192 
IFICACOIl) .E0.HUIU)G0  TO  15B0  SIMKT 193 
IF(CAR0«1».E0.HRRIICALL  INPTIR.NRM.MTFB)  SIMKT 194 
IF (CARO ( l ) .EQ.HRRI ) GO  TO  15B0  SIMKT195 
IF (CARD! I ) .EQ.HRU)rALl  INPT (S.NRM.NUM)  SIMKT196 


Figure  22.  Subroutine  SIMKT  Program  Listing  (Continued) 


n  o  o 


IFlCAoDtll  .EO.HRU1GO 
CO  TO  1440 
1600  CONTINUE 

IF ( iPwlNT  .EQ.61CALL 


TO  158) 

0F«UG(5. 


4HSIMK.4HT 


C 

C  CALCULATE  NR  ANO  NU 
C 

00  1 6*>0  J*1»NUM 
00  16?0  1*1»NNAX 
IF (0(! . J1 .NE.0.0100  To  1660 
1620  CONTINUE 

00  164®  1*1  *NRM 
IF <S1 I • J> .NE.0.61GO  TO  1660 
1640  CONTINUE 
NU*  J” 1 
GO  TO  1680 
1660  CONTINUE 
NU*NU'' 

1680  CONTINUE 

IF 1NU.E0.81G0  TO  1780 
DO  1740  1*1 »NRH 
DO  17(10  J*  1 «NM AX 
IF(R( I *J» .NE.O.O>GO  TO  1740 
1700  CONTINUE 

00  17?0  J* I «NU 

IF (S< I ♦ J> .NE.O.OlGO  TO  1740 

1720  CONTINUE 
NR*I-1 
GO  TO  1760 
1740  CONTINUE 
NR*NR< 


1760  CONTINUE 

IF1NR.GT.01GO  TO 
1780  CONTINUE 


1820 


PRINT  ERROR  HESSEGF 


.2.0.101 


1800 

1820 

1840 


1860 


180 

C 

c 

c 


281 

288 

251 


?;!^!!’Ih!!/51ix.3SHInTERCOnNECTION  SPECIFICATION  ERROR! 
STOP  111 

IFMIPRINT.NE.  31.  and.  IIPRINT.lT.  51100  TO  i860 

CONNECTION  oata  for  BLOCKS  •••*"> 

call  mPRSIP.MTFB.NTFB,NNAX.nNAX,T,4HP  1 
CALL  nPRS(0.NTFR.NIIM.NMAX.NU*T.4H0  ) 

CALL  MPRS1R.NRN.NTFB. NR. NMAX.T.4MR  l 

CALL  MPRS  <  S . NRM .NUN . NR , NU . T , 4HS  1 

CONTINUE 

RETURN 

CONTINUE 

CONPUTE  SUBSYSTEM  STATES  XDOT <N!*AN*XN  »8N*UN 
11*0 

00  251  N*1.NNAX 
NX*NNX (Nl 
00  280  1*1 »NX 

n*n*i 

XOOTL 1 1 1 >  *8.8 
NUX  *  NNU1N1 

XDOTL 1 1 1 1 *KOOTL (III *BT (I»J»N)#UHJ.N) 

00  280  3*1. NX 

XDOTU 1 1 1 "AOOTL ( 1 1 1 *AT (I  * J»N) •* 1 JtNl 

CONTINUE 


SINKT197 

SINKT198 

SINKT199 

SINKT200 

SINKT201 

SINKT202 

SINKT203 

SINKT204 

SINKT205 

SINKT206 

SINKT207 

SINKT208 

SINKT209 

SINKT2I0 

SIMKT211 

SINKT212 

SIMKT213 

SINKT214 

SINKT21S 

SINKT216 

SINKT217 

SIMKT218 

SINKT219 

SINKT220 

SINKT221 

SINKT222 

SINKT223 

SIMKT224 

SIMKT225 

SIMKT226 

SINKT227 

S1NKT228 

SINKT229 

SINKT230 

SINXT231 

SINKT232 

S1NKT233 

SINKT234 

SINKT235 

SINKT236 

SINKT237 

SINKT23B 

SINKT239 

SINKT240 

SINKT241 

SINKT242 

SINKT243 

SINKT244 

SINKT2A5 

SINKT246 

SINKT247 

SINKT248 

S1NKT249 

SIMKT250 

S1NKT251 

SINKT252 

SINKT253 

SINKT254 

SINKT2SS 

SINKT256 

SINKT2S7 

SIMKT2S8 

SINKT259 

SIMKT260 

SIMKT261 

SINKT262 


Figure  22.  Subroutine  SIMKT  Program  Listing  (Continued) 
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f 
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-  .T* '  'W&fr  <••••  n  =  ■** 


-"■  '  'WW 


C 

c 

c 


COMPUTE  INTERNAL  OUTPUTS  R lN*CN*XN*DN*ON 


311 


311 

350 

C 


n*o 

00  35 'j  N*1.NMAX 
MXaNNP <N» 

00  30o  1*1. MX 
11*11.1 
YL  1 1 1  > *••• 

MX1«NNX(N) 

DO  30 1  J*1 »MX1 

YL<II>*YL<II>*CT<l.J«N»*X<J,N> 

NX1*NnU<N> 

00  30n  J*1 .NX  1 

TL(in*TLm».DTU.J.N»*UIIJ.N» 

CONTINUE 


interconnection  equations 


00  24n  1*1. NM A X 
11*11*1 
YU1H*0.0 
00  230  J*  1  .NM AX 

230  YL«1I>*TL1II)»P(I.JI#RH1.J» 
00  240  J* 1 *NU 
YL(1Ii*YL(II).Q(I.J>*U< j> 


240 


c 

c 

c 


external  respons  EOUATIONS 


1 1*0 
00  280  1*1. NR 
11*11*1 
RL(1I)*0.O 
DO  27o  J-l.NMAX 

270  RL<II>*RLUI)*R<!«J>*RH1»J» 
00  2flo  J* 1 .NU 

280  RL<II»«RL<in*S(I..H*U(JI 
RETURN 
END 


SIMKT263 

SIMKT?64 

SIMKT265 

SIMKT266 

SIMKT267 

SIMKT268 

SIMKT269 

SIMKT270 

SIMKT271 

SIMKT272 

SIMKT273 

SIMKT274 

SIMKT275 

SIMKT276 

SIMKT277 

S1MKT278 

SIMKT?79 

SIMKT280 

S1MKT?81 

S1MKT282 

S1MKT283 

S1MKT284 

SIMKT285 

S1MKT286 

S1MKT287 

SIMKT288 

SIMKT289 

SIMKT290 

SIMKT291 

SIMKT292 

SIMKT293 

SIMKT294 

S1MKT295 

SIMKT296 

SIMKT297 

SIMKT298 

SIMKT299 

SIMKT300 

SIMKT301 


Figure  22.  Subroutine  SIMKT  Program  Listing  (Concluded) 
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mmm 


■hi  i  mmmmm . hhhhi 


o  o  o  non  ji  o  n  o  o  o  g  \j  «*»  non  oooooooooooooo 


SUMRO'fT  It.f  TRA^.'S*  (  :NX  .NNP.NMU. AT  .RT  .r  I  .  OT  .^0  I 'll  .MS* 

IMC.T  ,H  I  ,  4TFht,N.i|!|M,NSM,  I  PRINT  •  JR) 

P'JR®0  f  -  TO  OMP.lrr  i)UAD»UOLr S  FOR  NATIONAL  TRANSFER  FUNCTION 
ANAL  I  IS  -  A  F  KOM.'i.'  /  J  «  1A-ESH  -  T  MF  H'TNEYKFLL  INC 
OAT F  •^ITTF-I  -  |<T7-' 

SUBPROGRAMS  CALLfO 

OF  nr, 

APr.jH-  NTS  LIST 

N  I'i“UT  TRANSFER  FN  ML0C<  NO 

IP-JNT  I  ( |DUT  BPJNT  CONTROL  FlAU 

IW  1‘iPllT  FILE  NO  FUR  LINE  printer 

OTriEP  “APANETFPS  *PF  OEFINEO  JN  CALL  I  NO  PROGRA* 

DIMENSION  NNX  ( s*TrH )  *M'|P(MTFJ»  ,NNU(m[FM) 

DIMENSION  HS(>.MT..»TFb1  .P&InT(2.MT1 
0 1 MENr  ION  A  T  (  MS T  •  NOT  «  4 TFrt 1  .  mT  (M$T  .  |  .  MTFM) 

01  MEN,! ON  CT ( 1 .MST.MTfmi .OT<l,l.MTFR) 

ZERO  "J T  STOP AGC  SDACf 

IF  (  IP.  INT.FO.StCALL  0:«')f,U  .MfTPAN.MrtS*  .2.0.TUI 
MX=NN« (Nl 
M  X  M  1  =  •  NX('Jt-l 
MXpi*-  NXINI •! 

00  \  1=1. MX 

00  1  1=1. MX 

A  T  (  I  »  I . N ) = v • 0 
no  ?  t=l. nx 
J*l 

OT  <  I .  t.N>  =  ..; 
oo  3  i=i. , ix 
1  =  ) 

CT  (  I  ,  t.N)=.  .  , 

OT  (  1  .  !  .Nl  *„>.  y 

COMPU  f  E  AT.RT 

SET  OrF  DIAGONAL  TrBMS  IN  A  T*l  UNITY 

00  5 v  t«l.MXMl 
!i  AT(I,i»l.Nl  =  |. 

RT (NNt (Nl .| .Nl=l ./hS ( ’. 1 «N) 

C0MOU'f  LAST  SO*  or  A 

IF(IP<INT .EN.6) CAi.l  Ofmiig<?,4mTRAn.4H5k  .2.0. TM) 

00  10  J* 1 .MX 

60  AT  INN* (N I , J,NI=-HS(’.NNX (Nl .2-J,Nl*3T  INNX(N) - 1 .N) 

COMPUTE  CT .OT 
00  ?J  J=1.MX 

2G0  CT ( 1 .  l.N) =HS< 1 .NNX (M »?-J,Ni 

IF(HS(1,1.N) .£0.0. •>  GO  TO  40' 

00  3  J-  J  =  l  «M x 

36(1  CT  (  l  .  I.N1=CT(  1  •  1 .01  *AT  TNNX  (N)  ,  J.N1*MS(1  .  1  .Nl 
OT  ( 1  .  !  ,N1=RT(NNX(N1  .  1  ,-!»*mS(  1  .  I  .Nl 
4jO  CUNT  I  •  UE 

IF(  IP  JlNT.FO.hlCALL  OFRUGO.m-TPAN.MHSk  .?,0*!W> 

RETUP 

FNO 


TRANSK  2 
TRANSK  3 
TRANSK  * 
TRANSK  S 
TRANSK  6 
TRANSK  7 
TRANSK  4 
TRANSK  9 
TRANSK 1 0 
TRANSK 11 
TRANSK 12 
TRANSK  1 3 
TRANSK  1 4 
TRANSK 15 
TRANSK  1 6 
TRANSK 17 
TRANSK IB 
TRANSK  1 R 
TRANSK20 
T  RANSK2 1 
TRANSK22 
TRANSK23 
TRANSK24 
TRANSK2S 
TRANSK26 
TRANSK?? 
TR ANSK28 
TRANSK2R 
TRANSK30 
TRANSK31 
TRANSK32 
TRANSK33 
TRANSK34 
TRANSK35 
TRANSK36 
TRANSK37 
TRANSK38 
TRANSK  .39 
TRANSK40 
TRANSK41 
TRANSK42 
TRANSK43 
TRANSK44 
TRANSKmS 
TRANSKMb 
TRANSK47 
TRANSK48 
TRANSK4R 

TRANSK50 

TRANSKSl 

TRANSKS2 

TRANSKS3 

TRANSK54 

TRANSK55 

TRANSKS6 

TRANSK57 

TRANSK58 

TRANSKS9 

TRANSK60 

TRANSK61 

TRANSK62 

TRANSK63 

TRANSK64 

TRANSK6S 


Figure  24.  Subroutine  TRANSK  Program  Listing 
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Figure  25.  Subroutine  DFN  Flow  Chart 


SUBROUTINE  0FN(HS.«T 

« wTFfl  ,  Nr.  .NN.N.TO.  I°B  I  NT  «  I  *  > 

C 

C 

PURPOSE  -  TO 

PICK  A 

P»DE  AP3ROA 1HA  T ION  TO  TIME  OEL AT 

c 

ANAL  ISIS  -  A 

F  KONaB 

/  J  K  tA-ESH  -  THE  HONETAPLL 

INC 

c 

f- 

DATE  WRITTEN 

-  IB7S 

V 

c 

ARGUMENT S  LIST 

c 

NO 

INPUT 

NO  OF  DENOMINATOR  TERMS  IN 

THE  TR  fn 

c 

NN 

INPUT 

NO  OF  NUMERATOR  terms  IN  The  tr  fn 

c 

N 

INPUT 

TRANSFER  fn  hlock  no 

c 

TD 

INPUT 

time  OH  TRANSPORT  OELAY 

c 

JPOJNT 

INPUT 

PRINT  CONTROL  FLAG 

c 

IN 

INPUT 

FILE  NO  FOR  lINF  PRINTER 

OTHER  PARAMETERS  A»F  GEFINEO  IN  CALLING  PROGRAM 


0IMENM0N  hS<p.MT.mTFhi 

IF  (  IPRINT.EQ.41CALL  0€«UGU,4h0FN  •  *»H  «2. 0.1*1 

lF(N0.£a.2>NR*NN 

IFCN0,E<J.31NB«NN.? 

IF  <N0.E0.4»NR**IN*5 
IF1N0.E<1.S1NR*NN.R 

IF((N3.GT.13l.0B.(NR.LT.Hir,0  TO  660 

IF  ( IPbINT.EO.GICALL  DE*iUG<?.4hDFN  *4H  .2.0.1*) 

GO  TO  I51J. 520*539. 540. 55 J. 560.570 • 580.540 .600.610.620.630 1 NB 

FIRST  OROER  PA OF  AORROAIMAT IONS 

510  CONTINUE 

HS(1«».N)»1.0 
HS  (2.  I .Nl *TO 
HS<2.».N)»I.A 
GO  TO  650 
520  CONTINUE 

HSd.l .N)»-TD/p.O 
H$d»>.N)*1.0 
MS(2tl .N1»TO/?.0 
HSI2.’.N1»1 .0 
GO  TO  650 

SFCONf)  OROER  PAOE  APPROXIMATIONS 


530  CONTINUE 
HS(1«3.NI* 
HS (2. I .Nl * 
HS (2.*«N1* 
HS  C2tl.NI* 
GO  TO  650 
540  CONTINUE 
HSIltPtNM 
HSdt3.NI> 
HS (2. 1 «N1 * 
HS 1 2»  P.NI * 
HS(2.3.N)i 
GO  TO  65C 
550  CONTINUE 
HSd.l. NX 

hs  d .  *.nx 

HSdt3.Nl1 
HS.2t1.Nl1 
HSI2tP.Nl1 
HS < 2t  3.N1 1 
GO  TO  650 


1.0 

T0»T0/2.  i 
TO 
1.0 


-TD/3.0 

1.0 

T0»T0/6.l 

2.0*10/3.0 

1.0 


iTD*T0/12.0 

i-TO/P.O 

1.0 

TO*TD/I2.0 
10/?. 3 
>1.0 


Figure  26.  Subroutine  DFN  Program  Listing 
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T H  I fil 0  ORDER  PA"*7  AoPRrjX  IM4T  IONS 

DFN 

65 

DFN 

66 

560 

contz  (UE 

DFN 

67 

MS  I  1 .  . . N  >  « 1 . 0 

DFN 

69 

MS(2, t ,%> =  TO»*  V6. 

DFN 

69 

MS  (?*'»«N>*TO»T !?/?». 

DEN 

70 

MSI?. >.NI =T0 

DFN 

71 

MS  (  2  .  ■-  .  U »  *  1  .  (■ 

DFN 

72 

G 0  TO  65; 

DEN 

73 

570 

CONTI  HIE 

den 

74 

MS  (I*  ’.Nt=-TD/4.3 

OEN 

75 

MSI?. 1 ,N> *Tn«*V24.0 

DEN 

76 

HSI l .4.N) *1 .0 

DEN 

77 

M$<?.>.N>*T0«TD/4.' 

den 

78 

mSI?*3*N»*TD»1. *•■/*. 6 

DEN 

79 

MSI?.'..N1  *1  .•> 

DEN 

80 

r,0  TO  650 

OEN 

81 

580 

CONTI  -  HE 

DEN 

82 

MSI  1 .  >.NI «TO*T9/20.t 

DEN 

83 

MSI  1  •  l.NI  «->..’>•  TO/c.O 

DEN 

84 

MS  I  1  « . »  N  >  * l . C 

DEN 

85 

hsi?.  .Ni  =Yn»*i/6',.r 

DEN 

86 

NS(?.7>.N1=1.0*TO*Tr/?;.0 

OEN 

87 

HSI2.3.NI =TO«i.r/5,v 

DEN 

88 

HS(2.4.NI>I .0 

DEN 

89 

f.O  TO  65 J 

DEN 

90 

5*0 

CONTI  HIE 

DFN 

91 

MS  (  1 . 1  «N»  »-Tl)»»  VI»i».0 

den 

92 

MSI  1  .  >.N1  *TO»TIT/l  1.0 

DEN 

93 

MSI  1 . T.NI s-TO/’.O 

DEN 

94 

HSI I  ft .N>  *1 .0 

DEN 

95 

MS  (?.  1  .N1  *Tn*«  VI?  '  .0 

OEN 

96 

HS(?.?.Nt*TO«TVlil.C 

DEN 

97 

MS(?.l.NI*TO/?.C 

DEN 

98 

MS  I  2  «  <. «  N 1  *  I  .0 

DEN 

99 

r.o  TO  653 

DEN 

100 

den 

101 

FOURTH  order  R»oe  approximations 

DEN 

102 

DEN 

103 

60C 

CONTI  hie 

DEN 

104 

MS(|.s.NI»l ,C 

DEN 

105 

MSI?.  1  ,N)  *T0**'-./?4.C 

DEN 

106 

MS (?• ».NI =  TO»»  V6.  ' 

DEN 

107 

MSI?. i»N)aTO*To/?.' 

DEN 

108 

MS(?.4,N)sTO 

DEN 

109 

ms(2.-.n)=i.h 

den 

no 

f.O  TO  650 

DEN 

111 

610 

CONTI'MJE 

DEN 

112 

HSI | .4.NI a-TO/5.0 

DEN 

113 

MSI  1 .S.N) *| .0 

DEN 

11* 

MSI?. 1 . N I *TO**6/  I  2  .0 

OEN 

115 

HS  I  ? •  ? « N)  *? •  U*TD**  V3 3 . u 

DEN 

116 

MSI2.T.N1 *TO*TO*3.'/ly.O 

DEN 

117 

MS(?,4,Nl*T0*4.r/5.i) 

den 

118 

MS (2.5.NI *1  .0 

den 

119 

GO  TO  65C 

den 

120 

620 

CONTINUE 

DEN 

121 

MS  (l«-».NI*TO*  TO/30. C 

DEN 

122 

MS(1*6.N)*-T0/->.0 

DEN 

123 

Msii.6.Ni*i.e 

DEN 

12* 

MSI?. I ,NI*T0**4/36- .0 

OEN 

125 

H5(?.».N)«TO**'*/3i).; 

OEN 

126 

ms(2. <.n)«td*to*?.- /in.o 

DEN 

127 

HSI2.6.NI  =TO*?..,V3.0 

DEN 

128 

MSI2.C.NIS1 .C 

OEN 

129 

GO  TO  651- 

DEN 

1 30 

Figur  e  26.  Subroutine  DFN  Program  Listing  (Continued) 
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*30  CONTI  UF  DFN 

HS(  I  •  >.N)  =-m*»*T/?i  r  .  •  OFN 

►-S  (  I  .  ’.N)  =TO»T*/l4,  OFN 

►*5(I»'-»N)=-3.0*TO/7.0  OFN 

HS< 1 .N> =1  .5  OFN 

NS <?« I <NI =TD**4/A4  .0  DFN 

HSi?.’.N)=A.O*Tno*7/?IO.O  OFN 

HS(2.  ».N)=TO*Tr>‘>?.  /U.J  DFN 

MS(?.i,N>=TI)*4.'/7.(,  DFN 

HS(2. -.Nl=l  DFN 

*50  CONTI  UE  DFN 

IF  (  IP  •'INT.FO.MC4LL  l'r  PUCi  <  3  •  4HDF  N  .4H  <?t9«TW)  DFN 

or  TUP  DFN 

OFN 

POINT  ERROR  MFSSEFir  DFN 

DFN 

*60  CONTINUE  OFN 

WRITE!  I w » *7o )  DFN 

670  FORMAT ( IHI .//, 1 X.41HDTMFNSION5  FOR  TIME  DELAY  EXCEEDS  THE  LIMIT)  DFN 
STOP  Ml  DFN 

END  DFN 


131 

132 
1J3 
134 
)35 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 


Figure  26.  Subroutine  DFN  Program  Listing  (Concluded) 
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Figure  27. 


Subroutine  PH  ERR  Flow  Chart 
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SUBROUTINE  PHpOP  (hf  .MT  .“Tfb  .NO  .N.OMEG*.  TU.DELPh.  I  PRINT  < 

PURPOSE  -  TO  COMPUTE  PHASE  fR^OB  OF  P ADE  APoROt [MAT  ION 
ANAL  ISIS  -  A  F  KON/\P  /  J  •<  MAmESH  -  TMF  HONFTRfLL  INC 
HATE  iRITTEN  -  197* 

SUBPRi'ORAHS  CAL  LEU 
OE  ^JG 


ARGUMENTS  LIST 

NO  lN°tlT  NO  Of  '_,£N0*1NAT00  TERMS  IN  THE 

N  INPUT  TRANSFER  Fn  Rl0C<  NO 

OMi-r.M  INPUT  MAXIMUM  FHEOUENCT  FOR  COMPUTING 

TO  INPUT  TIME  OB  TRANSPORT  DELAY 

OE' ph  output  phase  frror 

ipb inT  input  print  control  flag 

1“  INPUT  FILE  no  FOR  line  PRINTER 

other  PARAMETERS  ape  OfFINEn  IN  CALLING  PROGRAM 


1*>  PHERR  2 

PM FOB  1 

TO  TIME  DELPMERR  «. 

PHERR  5 
PHFRR  6 
PHERR  7 
PHERR  8 
PHERR  9 
PHERR  10 
PHERR  11 
TR  fn  PHERR  1? 

PHERR  13 
PHASE  ERRORPHERR  14 
PHERR  IS 
PHERR  16 
PHERR  17 
PHERR  18 
PHERR  IB 


DIMENSION  H5<?,MT.MTFni 

IF<lP»lNT.EQ.6irALL  DFPUGII.4hPHER.4HR  .2,o»M> 

A»OM£gm*TO 

A2»A**? 

A3«A«*3 

A4«A*‘*4 

C1»HS(?.1.N)*A-mS(1 .1 .N1 
C2«HS(2.2.N»*A-hS( 1 . 2. N ) 

C3*HS(?«3«N)*A“HS( 1 <3.NI 
C4»HS(P.4.NI*A-HS(1 .4.NI 
CS»HS(P.5.NI»A-HS( 1 «  $  «  M ) 

NO»NO-l 

IF(IPJINT.E0.6)CAU  0FMU(.(2.4mPhER.4hR  .2.0, IW) 
GO  TO(M0.1?0.13'T.I40tNO 
110  CONTINUE 
CE»C2 
CO«C  I  '*  A 
GO  TO  15w 
120  CONTINUE 

CE*C3-Cl*A? 

C0*C2*A 
GO  TO  153 
130  CONTINUE 
CE»C4-C2*A2 
CO«C3*A-C»»A3 
GO  TO  ISO 
140  CONTINUE 

CE»CS-C3«A2.C1«A4 
C0«C4»A“C2*A3 
150  CONTINUE 
CE?«CF**2 

co2«co**r 

OELPHsSORi (CE»*C0P» 

IF(1P'?INT.E0.6)CALL  DfHUGI 3.4«PhER.4hR  >2.0. TR) 
RETUP  . 

END 


Figure  28.  Subroutine  PHERR  Program  Listing 


PHERR  20 
PHERR  21 
PHERR  22 
PHERR  23 
PHERR  24 
PHERR  25 
PHERR  26 
PHERR  27 
PHERR  28 
PHERR  2B 
PHERR  30 
PHERR  31 
PHERR  32 
PHERR  33 
PHERR  34 
PHERR  35 
PHERR  36 
PHERR  37 
PHERR  38 
PHERR  39 
PHERR  40 
PHERR  41 
PHERR  42 
PHERR  43 
PHERR  44 
PHERR  45 
PHERR  46 
PHERR  47 
PHERR  48 
PHERR  49 
PHERR  50 
PHERR  5 l 
PHERR  52 
PHERR  53 
PHERR  54 
PHERR  55 
PHERR  56 
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SUBROUTINE  STAMKlIVt 

M.F.XOOT.X.RI .UI . J.RIN.NNX.NNR.NNU. 

STAMK3  2 

1  A.B.C.O.NNS. 

VNS.DESS 

.IINITS.NNO.VNO.OESO.UNITO. 

STAMK3  3 

2NNI .V  ,  1 1 DES 1 

•UNIT! .MAXN.MAXM.NXM.NRM.NUM.NYM. 

STAMK3  4 

3MS.MN.MM.MP. 

MO, MR. MS! .MS2.MS3.MS4.NB.NRMMRI 

STAMK3  5 

c 

STAMK3  6 

c 

PURPOSE  -  TO 

OBTAIN 

STATE  S° AfE  MODEL  FROM  INTERCONNECTION 

STAMX3  7 

c 

OATA  row  SUBSYSTEMS 

OR  TO  PF Ap  DIRECTLY  THE  STATE  SPACE  OATA 

STAMK3  B 

c 

ANAL  I  US  -  A 

F  KONAR 

/  J  «  mAmESH  -  THE  MONEYMFLL  INC 

STAMK3  9 

c 

DATE  WRITTEN 

-  |  97S 

STAMK310 

c 

STAMK311 

c 

SUBPROGRAMS 

CALLED 

STAMK312 

c 

DE-»PM 

STAMK313 

c 

HP'J 

STAMK314 

c 

NA  <EL 

STAMK31S 

c 

OUlOK 

STAMK316 

c 

TOTNVR 

STAMK317 

c 

oe  •'RMS 

STAMK318 

c 

MP-S 

STAMK3I9 

c 

oofn 

STAMK320 

c 

st  ** 

STAMK321 

c 

STAMK322 

c 

ARGUMENTS  list 

STAMK323 

c 

V 

V  APRAr  FOR  COMPUTING  SIMULATION  MATRIX 

STAMK 324 

c 

w 

M  ARRAY  FOR  COMPUTING  SIMULATION  MATRIX 

STAMK325 

c 

F 

SIMULATION  matrix 

STAMK326 

e 

XD^T 

array  FOR  STATE  DERIVATIVES 

STAMK327 

c 

X 

ARRAY  FOR  STATES 

STAMK328 

c 

R 1 

ARRAY  FOR  INTERNAL  OUTPUTS 

STAMK329 

c 

UI 

ARRAY  FOR  INTERNAL  INPUTS 

STAMK330 

c 

u 

ARRAY  FOR  EXTERNAL  INPUTS 

STAMK33I 

c 

Rf 

array  FOR  INTERNAL  OUTPUTS  FOR  ALL  SYSTEMS 

STAMK332 

c 

NN  X 

ARRAY  FOR  STORING  SYSTEM  DIMENSION  NX 

STAMK333 

c 

NN.J 

ARRAY  FOR  STORING  SYSTEM  DIMENSION  NR 

STAMK334 

c 

NN'  l 

ARPAY  FOR  STORING  SYSTEM  DIMENSION  NU 

STAMK335 

c 

A 

I M/OUT 

STATf  transition  MATRIX 

STAMK336 

c 

H 

IN/OUT 

CONTROL  INPUT  MATRIX 

STAMX337 

c 

C 

IN/OUT 

STATE  OUTPUT  MATRIX 

STAMK338 

c 

D 

IN/OUT 

CONTROL  OUTPUT  MATRIX 

STAMK339 

c 

NNS 

IN/OUT 

NUMBER  ARRAY  FOR  STATE 

ST  AMK340 

c 

VN's 

IN/OUT 

VARIABLE  NAME  ARRAY  FOR  STATE 

STAMK341 

c 

OESS 

IN/OUT 

DESCRIPTION  ARRAY  FOR  STATE 

STAMK342 

c 

UNITS 

If  .'/OUT 

UNIT  ARRAY  FOR  STATE 

STAMK343 

c 

NNfl 

IN/OUT 

number  array  fop  OUTPUT 

S TANK 344 

c 

VNO 

IN/OUT 

VARIABLE  name  APRAY  FOR  OUTPUT 

STAMK 345 

c 

DFSO 

IN/OUT 

DESCRIPTION  ARRAY  FOR  OUTPUT 

STAMK 346 

c 

UN!  TO 

IN/OUT 

UNIT  ARRAY  FOR  OUTPUT 

STAMK347 

c 

NN  J 

IN/OUT 

numhfR  ARRAY  for  input 

STAMK348 

c 

WNt 

IN/OUT 

variable  NAME  ARRAY  FOR  input 

STAMK 349 

c 

DES! 

IN/OUT 

description  array  for  input 

STAMK3S0 

c 

UN!  T 1 

IN/OUT 

UNIT  ARRAY  FOR  INPUT 

STAMK 351 

c 

MAxN 

INPUT 

MAXIMUM  ROM  DIMENSION  FOR  SIMULA  MATRIX  F 

STAMK3S2 

c 

MAXM 

INPUT 

MAXIMUM  COLUMN  DIMENSION  FOR  SIMU  MATRIX  F 

STAMK353 

c 

NX" 

INPUT 

MAXIMUM  number  of  states 

STAMM 354 

c 

NRx 

INPUT 

MAXIMUM  NUMBER  OF  OUTPUTS 

S TANK 355 

c 

NU« 

INPUT 

MAXIMUM  NUMBER  OF  INPUTS 

STAMK3S6 

c 

NV  •« 

INPUT 

MAXIMUM  DIMENSION  FOR  INTERCONN  E0UATI9NS 

STAMK3S7 

c 

MB 

tNPUT 

MAXIMUM  NO  OF  SUBSYSTEMS  FOR  COMBINING 

STAMK3S8 

c 

MN 

I‘|R(IT 

MM*MP 

STAMK 359 

c 

MM 

INPUT 

MAXIMUM  OF  (NRM.NUM) 

S TANK 360 

c 

MR 

INPUT 

Maximum  DIMENSION  FOR  p  ARRAY 

STAMK 361 

c 

MO 

INPUT 

MAXIMUM  DIMENSION  FOR  0  ARRAY 

STANK 362 

c 

MR 

INPUT 

MAXIMUM  DIMENSION  FOR  R  ARRAY 

STAMK 363 

c 

MSI 

INPUT 

MAXIMUM  DIMENSION  FOR  SCRATCH  ARRAY  SI 

STAMK 364 

Figure  30.  Subroutine  ST.AMK3  Program  Listing 
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MS'1 
MS  1 
MS'. 

Nrt 

NR'<MB 


INPUT 

INPUT 

INPUT 

INPUT 


MAHlxU'-1  DIMENSION  TOR  STRATCH  ARRAY  S2 

mamw'  dimension  tor  scratch  array  S3 

maximum  DIMENSION  TOR  SCRATCH  array  sm 

MAXIMUM  SYSTEM  NO  -  :-OlICIT  model 


INPUT  MAXIMUM  DIMENSION  TOR  RIN 


COMMON  /INOUT/  IR. ]W. I  PR INT . INSERT . LOCATE .NULL . MARK <20 1 • JN. JO , JS 
COMMON  /SYS/  SCODE.SOES(S) .MSYS.HEAU(20) tNSYS(R) ,SH£A0(9»?0) 

I «PHEAH(201 
COMMO'  /SCI/  SI ( l I 

DIMEN= ION  D£SSS(NX-.l0«MB>  , UN  I TSS ( NAM .4 ,MR > 

DIMENSION  OESOO  (NRx’t  I  fi.Mij)  IN  I  TOO  ( NRM.  A  .MR ) 

DIMENSION  DESI  I  (NUM, 1?, MB)  •  >  IN  I  T  1  I  (NUM, 4 .MR) 

DIMENSION  NXX(MR) .NRB(MR) ,NUU(MH) 

common  /sc?/  s’in 

DIMENSION  ATC(NXM.NXM,MR) . BTC ( NXM , N JM ,Mg » 

DIMENSION  CTC(NRM»NXM,MB) , DTC (NRM.NUM.MB) 

DIMENSION  PC(MN.MN) fOCIMN.N )MI  ,RC(NRM.M\|> .SC(NoM.NUM) 

COMMO"  /SC3/  S3 ( 1 ) 

DIMENSION  PP(MP.MM.MM) , 00 ( MO . MM , NUN  I , RR (MR* NRM, MM) 

DIMENSION  NSP(MP) ,NS0(M0) ,NSR<MR) 

DIMENSION  V(MAXN) *M(MAXM) ,E (MAXN«mAXM> 

DIMENSION  XOOT (NXM.MB) • X (NXM. MB) , R I (NRM.MR)  «UI ( NUM « MB ) 

DIMENSION  RIN(NRMMO)  til  (NUM)  .NNX(MR)  , N  NR ( MR )  .NNiMMRI 
DIMENSION  A(NXM.NXM) ,R(NXM,nUM) ,C(NRM,nxM) .D(NRM.NUM) 

DIMENSION  NNS(NXM) ,VNS(NXM.?)  *0ESS < NXM. 1 0 1 *UN! TS I NXM, 4 > 

DIMENSION  NNO(NPM) ,VNQ(NRm,?) «DES0 ( NRM » 10) . UN  I  TO ( NRM . 4 ) 

DIMENSION  NNI  (NUM)  .VNI  (NUm, ?) , 0£Sl < NUM. 10 )  ,  UNIT  I  (MUM,  4) 

DATA  hOINT/4h*INT/ 


PRINT  SYSTEM  DIMENSIONS  IT  nEEOEO 


ir ( IPoiNT,EO.fe>MRlTE(IM.I65)MSl.MS?«MS3.MS4,MAxN,MAXM 
I,NXM,NRM,NUM,NYM«MM,MP,M0,MP,MB,NB,MS»MN 
165  FORMATdX. 15(15, IX)  ) 


COMPUTE  ARRAY  START  INDEXES 


FOR  OESSS.UNITSSxOESOO.UNITOO.OESll.UMITII.NXX.NRR.NUU 


Ll»l  A  L2*L1«NXM«Mr*10  f  L3*L?*NXM»MB»4  S  L4»L3*NRM»MB*I0 
L5«LA»NRM»MB*4  %  L6«L5«NUM»mB*10  *  L7»L6*NUM*NR*4 
L8»LT«M8  *  L9»Lfl*MR  %  L10*LO»MB 


FOR  ATC*8TC«CTC.0TC.PC*QCtRC«SC 


MI»1  %  M2»M1*NXM«NXM*MR  S  M1«M2.NXM*NUM»MB  S  M4»M3»NRM*NXM»MB 
M5»M4,NRM«NUM»MB  S  M6*M5*MN»MN  S  m7«mo,nN*NUM  %  MB«M7*NRM*MN 
M9«MB,NRM*NUM 


FOR  Pp,OQ,RR,NSP«NSO«NSR 


K 1 >1  A  K2*K 1 ♦MP*MM*MM  S  K3*K2*M0*MM*INJM  %  K4«K1»MR*NRM»MM 
K5»K4.MP  S  K6»K5*MO  S  K7»K6*MR 

IF(IPo|nT.EQ.6)WRITE<IW«165)L1*L2«L3»IA»L5*L6*L7»L6»L9*L10 
IF ( IPp INT.EQ.6) WRITE ( IW, 165)M| «M?«M3« W4,M5*M6«M7«Mfl,M9 
IF ( IPQINT.£Q,6) WRITE ( IW*165)K 1 «K2*K3»<4»K5»K6»K7 


CHECK  IF  SCRATCH  ARRAY  SIZES  ARE  SUFFICIENT 


IF  ( (LlO.GT.MSI)  .0R„<M9.r,T.MS2>  .OR,  (<7.r,T.MS3> ) 

1CALL  nERRM(L10«M9«K7*MS4,MSl , MS2*MS3, MS4.3«0*4hSTAM*4HK3  , 1 m  1 

IF(SC00E.E0.HDINT)r,0  TO  5 

CALL  DU AOK (A,B,CtD,NNS« VNS tDESS,UNlTStNNO»VNO*OESO*UNITO* 
INNT»VnI,DFST,UNITI.S1 (U  *  «S1 (L?) »S1(L3) tSl (L4) .51 (L5) «S1 <L6»  * 


STAMK365 
ST  AMK  366 
STAMK367 
STAMK36B 
STAMK36R 
STAMK370 
STAHK371 
STAMK372 
STAMK373 
ST  AMK374 
STAMK375 
STAMK376 
STAMK377 
ST  AMK  378 
STAMK379 
ST  AMK  380 
STAMK381 
STAMK 382 
STAMK383 
ST  AMK  384 
STAMK38S 
STAMK386 
ST  AMK  387 
STAMK38B 
STAMK389 
ST AMK 390 
STAMK391 
ST  AMK  392 
STAMK393 
ST AMK 394 
STAMK395 
ST  AMK  396 
ST AMK 397 
STAMK39B 
STAMK399 
STAMK100 
STaMKIOI 
ST  AMK 1 02 
ST  AMK 1 03 
STAMK104 
STAMK 105 
ST AMK 106 
STAMKI07 
STAMK 1 08 
STAMK 109 
STAMK 1 10 
STAMKU1 
STAMK 1 12 
STAMK1 13 
STAMK 114 
STAMK 1 15 
STAMK 116 
STAMK 117 
STAMK118 
STAMK 119 
STAMK 120 
STAMK 121 
STAMK122 
STAMK | 23 
STAMK 124 
ST AMK 125 
STAMK126 
STAMK 127 
STAMK 126 
STAMK129 
STAMK 130 


Figure  30.  Subroutine  STAMK 3  Program  Listing  (Continued) 
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?S  1  (L7»  .SI  (18)  .SI  (19)  .NXM.NRM.NUM.MB.N9I 

return 

5  CONTINUE 

NR|«0  %  NR2«#  S  NR  3*0  f  NUlaO  S  NU2»0  %  NU3»0 
NKA«0  f  NRAa#  5  NUMO 

ERSE ■) . RE-31  <  T»0.0  S  INIT.O  S  NFLAG«I 

IF  (  ( I*>R  INT.E0.3)  .OR.  ( 1PR1NT  ,GT  .4)  ICALL  HPR(HEAr.lK) 

C 

C  INITIALIZING  CALL  TO  SURROUTINE  SINK 
C 

NX«0  %  NR»0  S  NU«0  *  NVa# 

N|a)  %  N2»N1»NX  S  n3«N2«NY 

CALL  SINK(V(N1> .V(n2> .V(N3) , XDOT  . X , R I .U 1 1 !I.R IN. NNX .NNR .NNU. 
IS? (Ml ) «S2 (M2) .S2(M1) .S2(N4) ,$?(M5) .S? (M6> .52 (N7) ,S? (MB) . 
2S3(Kll  .S3  (l<2).  S3  <K3)  i$3  (K4) .  S3  (KS ) .  S3  (KG)  .NX.NY  .NR.NU.NNAX, 
3NB.MN.MP.M0.NR.NXN.NUM.NRN.4N.  INIT  .T  .NXA.NRA.NllA.NB.NRMNB) 

C 

C  CHECK  FOR  DIMENSION  ERROR 

C 

INIT  a  I 

Ma?»N««NY»NU 

NaNX.NY.NR 

ir ( (NX.GT.NXMI .OR. (NR.GT.NRM) .OR. (NU.GT.NUN) .OR.  (NV.GT.NYM) I 
(CALL  OERRNS (NX.NR .NU.NV .NXN .NRM .NUN.NYM .3.0.4HSTAM.4HK3  .IN) 
N1  ■ 1  A  N2«N1 *NX  S  n3»n2.NY 
C 

C  ZERO  OUT  XDOT.RI.UI.X.U 

c 

DO  IB  NNal.NMAX 
MXaNNX(NN) 

DO  10  Jal.MX 
XDOT (  i.NNIaO.O 

10  X ( J.NN ) ■# .0 

DO  II  NNal.NMAX 
MXaNNR(NN) 

DO  12  J-l.MX 

12  RI(J.nNI»#.0 
MXbNNU(NN) 

DO  13  Jal.MX 

13  UI ( J.NN)*#.# 

11  CONTINUE 

DO  14  lal.NU 

14  U(l)aq.# 

C 

C  COMPUTE  PARTIALS  MAT  STATE  DERIVATIVES 

C 

45  CONTINUE 

JJa# 

DO  S#  NNal.NMAX 
MX*NNX (NN) 

00  5#  Jal.MX 

JJaJJ.i 

XDOT ( J.NN) al, 

CALL  SINK (V INI) .V(N?) «V(N3) .XOOT.X.RI.UI.U.RIN.NNX.NNR.NNU. 
1S2IM1) »S2(M2) ,S?(M3) .S2(M4) ,S?(M5> .S?(M6> .S2(N?) ,S2(M8) • 
2S3IK1 ).S3(K2).S3(K}). S3 (K4).S3(KS).S3(K6) .NX. NY. NR.NU.NNAX. 
3MS.MN.MP.M0.MR.NXM.NUM.NRM.MN. INIT.T (NXA.NRA.NUA.NB.NRMMB) 
XDOT (J.NN) a#. 

00  5#  I-l.N 
SO  rd.JJ)aV(I) 

c 

C  COMPUTE  PARTIALS  MRT  INTERNAL  OUTPUTS 

c 

00  1#0  NNal.NMAX 
MXaNNR (NN) 

•00  1#0  Jal.MX 


STANK  131 
STAMK132 
STANK  1 33 
STANK 134 
STAMK135 
STAMM  36 
STANK  13? 
STAMM  38 
STANK  139 
STANK  140 
STAMK141 
STAMK142 
STANK143 
STAMK144 
STAMK14S 
STANK  146 
STAMK147 
STANK  148 
STAMK149 
ST  AMK ISO 

s tank isi 
STAMK152 
STANK153 
ST  AMK 154 
STAMKlSS 
STANK  156 
STANK  157 
STAMK15B 
STANK  159 
STANK160 
STANK  161 
STANK162 
STANK  163 
STANK  164 
ST AMK 165 
STAMK166 
STAMK167 
STANK 16B 
STANK  169 
STANK 170 
STANK 1 71 
STANK  172 
STANK173 
STANK  174 
STANK  1 75 
STANK 176 
STANK 177 
STANK  1 78 
STANK I 79 
ST AMK 180 
STAMK181 
STANK  182 
STANK 183 
ST AMK 184 
STAMKlSS 
ST AMK 186 
STANK 187 
STAMKlSS 
STANK 189 
STANK  190 
STAMK191 
STANK 192 
STANK  193 
STANK  194 
STANK  195 
ST AMK | 96 


Figure  30.  Subroutine  STAMK3  Program  Listing  (Continued) 


125 


ooo  ooo  ooo  ooo*-  ooo 


jj=jj*  i 

»! ( J.  >N)  =  1. 

CALL  S  IMK  (  V  <N1  >  .V  (t)2>  .  V  <N?>  .XNOT.X  ,?1  .III  . U » R I N , NNX . NNR . NNU, 
IS?  (Ml  i  ,  ?(M2) .S?(M3t ,S?(M4) ,S?(MS) ,S2(Mf>) ,S2(M7) ,S2(M8) , 

2S3 ( K 1  i  •  S3 l K2 )  « S3 (K  3  >  «S3  <K4 )  ,  S3 ( K5)  «  S3  <K6 )  .  NX  .  NY  .  NR  ,NU  ,NMAX  , 
3MR.  MM  .  Ml-1 ,  MO,  MR  .  NXM.NUM  »NRM,  mn  ,  I N 1  T  «  T  ,  \|X  A  ,  \|P  A ,  N'  I A  ,  NR ,  NRMMB ) 
RI ( J.  iN>=0. 

no  m  i  =  l »  n 
5  Of  r  (  1  ,  j  ))=(/  (  I  > 

C0MOuTr  p ART  I ALS  WPT  INTERNAL  INPUTS 

00  IS  NN=1,NMAX 
MX  =  NN  MNN) 

00  15  J=1,MX 
JJ=JJ.  1 
U!IJ<  .N)  =1  . 

CALL  IMK ( V (N1 >  .V  Cl?) ,V(N3> .AOOT.X.RI  , 1)  I  .  0  »  R  I N ,  NNX  .  NNR  ,  NNIJ  . 
IS? (Ml i , S2(M?)  ,S?(M7i .S?(MA) ,S?(M5) .S?(M<b) ,S?(M7| ,S2(M8> , 
2S3(Kl>.S3(*?>.S3(<3>*53<Ko.S3(KS>.S3<Kfc>  .  NX  .  NY  .NR ,  NU  .NMAX  . 
3MB.  MM. MR. MQ, MR, NXM, NUN. NRM.mN, INI T.T.NXA.NRA.NUA.NB.NRMMB) 
UI  (J.'iN)  =0. 
no  15  1=1, N 

50  r  ( I ,  J  I)  =V(  I ) 

COMPUTE  PARTIALS  WPT  STATES 

00  ?U 1  NN  = I ,NMAX 
MX=NN< (NN) 

00  ?0I  J=  1 , MX 
JJ=JJ* 1 
X  (  j .  N  l )  =  1  . 

CALL  - 1 MK  (  V  < N 1  )  ».V  ( t'i? )  .  V  ( N3 )  ,  XOO T  ,  X  .  R 1  .  II I  .  'J .  R  I N .  NNX  ,  NNR .  NNU . 
IS?  (Ml  )  ,S?(M?)  ,S?(M-,)  ,S?(M4)  ,S?(M5)  ,S?(MM  ,S?(M7)  ,S?(M8>  , 

2S3  (K  1  )  ,S.3(K?)  ,S30<3)  ,S3(K4)  ,S3<K5)  ,  S3  ( K  6  >  .  NX  .  NY  .  NR  ,NU  ,NMAX  , 
3MR ,  MM  •  MP  ,  MO ,  MR ,NXM .NUM  »NRM .MN,  1 M I  T  ,  T  ,  NX  A  »  NR  A «  N'J  A,  NB,  NRMMB ) 

X  (  J,«r  )  =vi . 

00  ?0l  1  =  1  iN 

?0l  F ( 1 . J  D  =V  (  I  ) 

COMPUTE  PART  I ALS  WPT  EXTERNAL  INPUTS 

00  ?5 1  J=1,N(J 
JJ=JJ» 1 
U  ( J )  =  )  . 

CALL  SIMK  (V  (N)  )  «V  Cl?)  ,V  (N3)  ,  X()OT  ,  X  , R I  ,U  I  •  U ,  R  I N , NNX  . NNR , NNU , 
IS? (Ml l ,S2(M?) «S?(M7) ,S?(M4) ,S? (M5l  ,S?(M*,) ,S?(M7) ,S2(M8) , 
?S3C<1>.S3<K?),S3(K3>,S3<K4). SICKS),  S3  <Kf>)  .NX , Ny , NR , NU.NMAX  . 
3MR,MM.mP,mq,mR,NXM.NUM»NRM,vin. INIT.T.NXA.NRA.NUA.NB.NRMMB) 

U  (  J )  =  . 

00  35  1  I  =  1  . N 
?5 1  E ( I , J  ll=V(I> 

8002  CONTINUE 

COMPUTE  THE  SIMULATION  MATRIX 
Nl/=NA  »ny 

IE ( IP^INT .EO.SICALL  MORS (E , m A xN . M A XM, N . M , T , 4HS I M  ) 

00  51  1=1, NV 
DO  5?  J  = 1 , N V 
52  E( I , J) =-E ( I , J) 

51  F<I,H=F(I.I)*1. 

XOOT  aPRAY  is  REINC,  USED  AS  A  SCRATCH  ARKAY  IN  TDINVR 
EALL  T  0 1 NNR ( I  SOL , I OS0L , N V . -M , r , M A XN,  X  DOT , OE T ) 


STAMK197 
STAMK198 
ST  AMK 1 99 
STAMK200 
STAMK201 
STAMK202 
ST  AMK203 
STAMK204 
STAMK205 
STAMK206 
STAMK207 
STAMK208 
STAMK209 
STAMK21 0 
STAMK21 1 
STAMK212 
STAMK213 
ST  AMK?14 
STAMK215 
STAMK216 
STAMK217 
STAMK218 
STAMK219 
STAMK220 
STAMK221 
ST  AMK222 
STAMK223 
ST  AMK22-* 
STAMK225 
STAMK226 
STAMK227 
STAMK228 
STAMK229 
STAMK230 
STAMK231 
STAMK232 
STAMK233 
5TAMK234 
STAMK235 
STAMK236 
STAMK237 
STAMK238 
ST  AMK239 
STAMK240 
STAMK241 
STAMK242 
STAMK243 
STAMK244 
ST  AMK245 
STAMK246 
STAMK247 
STAMK248 
STAMK249 
STAMK250 
STAMK251 
ST  AMK252 
STAMK253 
STAMK254 
STAMK255 
STAMK256 
STAMK257 
STAMK258 
STAMK259 
STAMK260 
STAMK261 
STAMK262 


Figure  30.  Subroutine  STAMK3  Program  Listing  (Continued) 
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I R  =  NV .  1 
ICrNV.NP 
J8=!P 
JE  =  M 

no  S3  i  =  ih.  if 
on  S3  j=jh,jc 
00  S3  K=1 .NV 

S3  F ( I . Ji =F (I  .  J)  »F  (  I  .* >*f<k. j) 

00  S3  1  =  1  ,  IF 
no  S3  J=1  .  )E 

JF  (  AFK(F  (  I  ,  J)  )  .LE.FPSF  )  F  (  I  •  J  l  =  n.O 
S30  CONTI-UE 

I  F  (  I P  INT.fD.fi)  CALL  MD»S(F,-.AXN.MAXM,  V.M.  T.4HSIMI  I 
C 

C  FORM  •.H.C.O  MATRICES 

c 

J 1 =  NV  *  1 

J?=NV.NX 

J3  =  J1 *  NX 

J4=J?«NU 

I  l  =  N  V  ♦  1 

I2=NV*NP 

00  6P  1  1=1. NX 

no  6o  i  j=ji * j? 

JJ=J-  U ♦ 1 

600 1  A ( I . J  I) =F( It J) 

DO  fit;  2  1  =  1. NX 

no  fit,-  ?  j=j3.ja 

JJ  =  J-  l3*  1 

600?  R  (  I  ,  J t)=F(I,J) 
no  fin  3  1=11.1? 

11=1-11*1 

no  fio  3  j=ji.j5 

JJ=J-  11*1 

6003  C  (  !  I .  JJ)  =F  ( I  •  J) 

no  fio  4  i  =  n.i’ 

11=1-11*1 

no  fi0'4  j=j3.j4 

JJ  =  J- J3*  1 

6004  0(11.  Ij ) =F  < I . J) 

c 

C  U’DATf  NAME  LIST  OaTA 

C 

KR  =  NM  X 

CALL  " AMFL (NNS.VNS.DESS.UNITS.NNO. VNO.DESO. ON  I  TO. NNl.l/N I. 
10ESI .UNITI.Sl (LI ) «sl (L?) .SI  (L3) .SI  (L4) .SI (LSI .si (L6) . 

?S1  (L7t  .SI  (LSI .SI  <L0) »NXM  »N9M  ,  NI)M  ,  NX  »  NR  .  NU  »  NFL  AO.  MR  «K8  »NB  I 
C 

C  WRITE  OUAUPUPl.F  OAT  A  ON  FIL=  OGATA 

C 

10  =  0 
MFLAOr? 

CALL  oOIO ( A.R.C.O.Sl ,fjX  ,  NP  *  NU  .NXM  .  N?M  ,  NUN  •  NX  A ,  MR  A  .NUA , 

IN?  l  .N’?.NP3.NU1  .NIJ’.NIO.T.  10.  (PRINT  .  IW.JU. HEAD. MARK. 
2L0CAT'. NULL. INSERT, MFLAO) 

RETUP' 

END 


ST AMK?63 

STAMK?64 
STAMK26S 
STAMK266 
ST  AMK?67 
STAMK268 
STAMK269 
STAMK270 
ST  AMK?7 1 
ST  AMK?7  ? 
ST  AMK?7  3 
STAMK274 
STAMK?75 
ST  AMK?7fi 
ST  AMK?77 
STAMK276 
STAMK279 
STAMK280 
ST  AMK28 1 
STAMK282 
STAMK283 
STAMK284 
STAMK285 
STAMK286 
ST  AMK287 
STAMK288 
STAMK269 
STAKK290 
STAMK291 
STAMK29? 
STAMK293 
STAMK294 
STAMK295 
STAMK296 
STAMK297 
STAMK298 
STAMK299 
STAMK300 
STAMK301 
STAMK30? 
STAMK303 
ST  AMK304 
STAMK305 
STAMK306 
STAMK307 
STAMK308 
STAMK309 
ST  AMK310 

ST  AMK  31 1 
ST  AMK  3 1 2 
ST  AMK 31 3 
STAMK314 
ST  AMK 3 1 5 
STAMK316 
STAMK317 
ST  AMK  31 8 
ST  AMK319 


Figure  30.  Subroutine  STAMK3  Program  Listing  (Concluded) 
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Yes 


Set  Up 
Differential 
Equations  for 
the  System 


Set  Up 
Internal  Output] 
Equations  and 
Interconnection! 
:auations 


Set  Up 
External 
Response 
Fnuations 

I  Return  i 


Figure  31.  Subroutine  SIMK  Flow  Chart 
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SUBROUTINE  S'  1 MK  (XUoTL.YL.RL.XOOT.X.RI  .1)1  . J. R IN. NNX . NNR .NNU. 
1AT.BT .CT.OT .P.O.R.S.Po.QO.RB.NSP.NSQ.NSR.NX.NY.NR.NU.KB.MB. 
2MN  <  HP  «  MQ  .MR  *  NXM  »NllM  .NRM  .  MN .  I N I T . T . N X A . NB A . NU A . NB . NRMM9 ) 

PURPOSE  -  TO  COMBINE  SYSTEMS  OESCR I HF 0  BY  QUADRUPLES 
ANAL  ISIS  -AT  KONAP  /  J  K  MAHESH  -  T  ME  HONE YwfLL  INC 
DATE  MB  IT TEN  -  197c 

SUBPROGRAMS  CALLED 

eile 

MPD5 

INOT 

ZERO 


ARGUMENTS  LIST 

XDOTL  OUTPUT 
YL  OUTPUT 
RL  OUTPUT 


NX  OUTPUT 

NY  OUTPUT 

NR  OUTPUT 

NU  OUTPUT 

INI T  INPUT 

T  OUTPUT 

NXa  output 

NRa  OUTPUT 

NUa  OUTPUT 

other  parameters  ape 


array  for  derivative  or  state 

ARRAY  FOR  Y  EOJAT ION  VARIABLES 

ARRAY  FOR  EXTERNAL  response  variables 

ARPAY  FOR  STORING  SUBSYSTEM  QUADRUPLE  A 
ARRAY  FOP  STORING  SUBSYSTEM  QUADRUPLE  B 
ARPAY  for  STORING  SUBSYSTEM  QUADRUPLE  C 
ARRAY  FOR  STORING  SUBSYSTEM  QUADRUPLE  D 
INTERCONNECTION  QUADRUPLE 
INTERCONNECTION  QUADRUPLE 
INTERCONNECTION  QUADRUPLE 
INTERCONNECTION  QUADRUPLE 
ARRAY  FOR  INTERMEDIATE  TNTERCONN  DATA 

ARRAY  FOR  INTERMEDIATE  INTERCONN  DATA 

ARRAY  FOR  INTERMEDIATE  INTERCONN  DATA 

ARRAY  FOR  INTERMEDIATE  INTERCONN  DATA 

ARRAY  FOR  INTERMEDIATE  interconn  OATA 
ARRAY  FOR  INTERMEDIATE  INTERCONN  DATA 
NUMHfR  or  STATES 
NUMBER  or  Y  EOJAT IONS 
NUMBER  or  OUTPJTS 
NUMBER  or  INPUTS 
INITIAL  MODE  FLAG 

sample  time 

NO  or  STATES  without  Thf  IMPLICIT  MODEL 
NO  or  OUTPUTS  WITHOUT  THE  IMPLICIT  MODEL 
NO  OF  INPUTS  VITMOUT  THE  IMPLICIT  MOOEL 

oefineo  in  calling  program 


COMMON  /INOUT/  iRf  IWt  JPRINT, INSERT. LOCATE. NULL. MARK (201 .JN.JO.JS 
COMMON  /SYS/  SCOOE.SDES(5) .MSYS»HE*0(?0* *NSYS«R» »SHEA0(<>»20) 
l»PHEAO(26t 

DIMENSION  XDOTL (NX I . YL (NY» .RL  <NR> 

DIMENSION  XOOKNXM.MB)  .X(NXM.MB)  «RI  (NRM.HB)  «UI  ( NUM .MB ) 

DIMENSION  RIN(NRMMP)  .U(NUM) ,NNX (MB) .NNR (M0I .NNtJ(MB) 

DIMENSION  AT(NXM.NXM.MR) .BT (NXM.NUM.M9) 

DIMENSION  CT(NRM.NXM.MBt  <0T (NRM.NUM.M9) 

DIMENSION  P (MN.MN) .0 (MN.NUM l »B (NRm.MN) .S(NRM.NUM) 

DIMENSION  PP(MP.MM.MH) .00 (MO.MM.NUM )  . RR (MR. NRM. MM » 

DIMENSION  NSP(MP> ,nS0(MO» ,NSR(MR> 

DIMENSION  C*RD(?0) 

DATA  hC.HtNO.HRI. HRS* HUI.MU/1HC.4HEND  . ?HR 1 ,2H0/ . 2HUI « 1  HU/ 

DATA  H0UTP.HINPU/4H0UTP.4HINPU/ 

IF ( INIT.NE.O)  GO  TO  100 

INITIALIZE 

KP«0  S  KQ«#  %  KR«0 
KB-0 


SINK  2 
SINK  3 
SINK  4 
SINK  5 
SIMK  h 
SIMK  7 
SIMK  B 
SIMK  9 
SIMK  10 
SIMK  11 
SIMK  12 
SIMK  13 
SIMK  14 
SIMK  IS 
SIMK  16 
SIMK  17 
SIMK  IB 
SIMK  19 
SINK  20 
SIMK  21 
SIMK  22 
SIMK  23 
SIMK  24 
SIMK  25 
SIMK  26 
SIMK  27 
SIMK  *8 
SIMK  29 
SIMK  30 
SIMK  31 
SIMK  32 
SIMK  33 
SIMK  34 
SIMK  35 
SIMK  36 
SIMK  37 
SIMK  38 
SIMK  39 
SIMK  40 
SIMK  41 
SIMK  42 
SIMK  43 
SIMK  44 
SINK  45 
SIMK  46 
SIMK  47 
SIMK  48 
SIMK  49 
SIMK  SO 
SIMK  51 
SIMK  52 
SIMK  53 
SIMK  54 
SIMK  55 
SIMK  56 
SIMK  57 
SIMK  58 
SIMK  59 
SIMK  60 
SIMK  61 
SIMK  62 
SIMK  63 
SIMK  64 


Figure  32.  Subroutine  SIMK  Program  Listing 
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T*0.C 

SIMK 

65 

NX  1 *0  i  NR1=0  «  NJ1=0 

SIMK 

66 

IF (  |P ^INT .E0.6I WRITE  < IK.RrtOTKP.Ma.m.MP.MO.MR.MS.NUM.NRM.MN.NB 

SIMK 

67 

900 

FORMAT ( 15t IX. !?>  > 

SIMK 

68 

DO  96  1*1. NR 

SIMK 

69 

960 

NSYSI 1 )*-l 

SIMK 

70 

00  97"  1=1. MP 

SIMK 

71 

970 

NSP ( It  =0 

SIMK 

72 

DO  90*  1=1. MO 

SIMK 

73 

9*0 

NSO ( I  >  =  9 

SIMK 

74 

DO  99 !  1*1 .MR 

SIMK 

75 

990 

NSR  <  1 1  =0 

SIMK 

76 

CALL  7fROIP.MN.MN> 

SIMK 

77 

CALL  /ERO(O.MN.NUM) 

SIMK 

78 

CALL  7f«0(R.NRM.MN> 

SIMK 

79 

CALL  7EROIS.NPM.NUM) 

SINK 

80 

DO  1010  J= 1 « MM 

SIMK 

81 

00  10"0  *  *  1 .MM 

SIMK 

82 

DO  1C.  0  1*1 .MP 

SIMK 

83 

1000 

PP<  I«.I.K>*P(  J.Kt 

SIMK 

84 

DO  1010  K*1.NUM 

SIMK 

85 

DO  1010  1*1 .MQ 

SIMK 

86 

1010 

00(|.  I.K>*0( J.K) 

SIMK 

87 

DO  lO’O  J*1.NRM 

STMK 

88 

DO  10?0  K*I.MM 

SIMK 

89 

00  lO’O  1*1. MR 

SIMK 

00 

1020 

RR  (  I  .  )•*  1  *R  (  J.K  ) 

SIMK 

91 

C 

SIMK 

92 

C 

READ  INTERCONNECTION  DATA 

SIMK 

93 

C 

SIMK 

94 

1040 

CONTINUE 

SIMK 

95 

RE AD ( |P  *  1060 ) CARD 

SIMK 

96 

1060 

FORMAT (20A4) 

SIMK 

97 

DECODE  (4,1100. CARO(l>  ICC. O'JMMY 

SIMK 

98 

1100 

FORMAT (Al .A3) 

SIMK 

99 

1120 

FORMAT (A2. 11. A) ) 

SIMK 

100 

1140 

FORMAT (A2.A2I 

SIMK 

101 

IFICC.EO.MCIGO  TO  10*0 

SIMK 

102 

IF  (CARO ( 1 1 •EQ.MENO) GO  TO  14fl0 

SIMK 

103 

DECOOf (4, 1 140. CARO ( 1 11 COOEl .COOE2 

SIMK 

104 

IF(C0DE1.E0.HRS)G0  TO  1200 

SIMK 

105 

DECOOF (4. 1 120. CARD (lllCOOEl.Nsri. DUMMY 

SIMK 

106 

ificoofi.eo.huiigo  to  1160 

SIMK 

107 

GO  TO  1406 

SIMK 

108 

C 

SIMK 

109 

C 

UPDATE  the  sustem  number  counter  nsys 

SIMK 

110 

C 

SIMK 

111 

1160 

CONTINUE 

SIMK 

112 

IFIKB.EO.OIGO  TO  1*75 

SIMK 

113 

00  11-70  N«1.KR 

SIMK 

114 

IF(NSYl.EQ.NSYS(NI  )GO  TO  11*9 

SIMK 

115 

1170 

CONTINUE 

SINK 

116 

1175 

CONTINUE 

SINK 

117 

KB*KB»1 

SIMK 

118 

IF(KB.GT,M8IG0  TO  1440 

SIMK 

119 

NSV$(»B>*N5Y1  » 

SIMK 

120 

11  SO 

CONTINUE 

SIMK 

121 

OECODf (4.1 120 .CARD ( 21 >  C00E2, NS V2* DUMMY 

SIMK 

122 

IF (CODE2.EO.HR I ) GO  TO  1320 

SINK 

123 

DECODE (4. 1 100. CARD ( 2) I CODE2 .DUMMY 

SIMK 

124 

IF(C0D*'2.E0.HU)G0  TO  1360 

SINK 

125 

GO  TO  1400 

SINK 

126 

1200 

CONTINUE 

SINK 

127 

IF (C0qF2.EQ.HR!  |  GO  TO  1220 

SINK 

120 

IF (C0DE2.E0.HUIG0  TO  1280 

SINK 

129 

GO  TO  1400 

SINK 

130 
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c 

C  READ  MATRIX  (R/RIMI  INTO  PROPER  AREA  OF  RR  MATRIX 
C 

1220  CONTINUE 

DECODF  <4.  1240.CAR0<?>  t NSY?  •  fHJRMY 
1240  F ORM A T (  ]  1 .  A  3 ) 

KR»KR. I 

IF (KR.GT.MRIGO  TO  147fl 
NSR<KQ)»NSY2 
CAUL  7ER01R.NRM.MNi 
CALL  (NPT 1R.NRM.MN> 

00  12*0  I-l.NRM 
00  12*0  J-l.MM 
1260  RR1KR. It Jl »R ( I< J) 

GO  TO  1040 
C 

C  READ  s  MATRIX  (R/Ut 
C 

1280  CONTINUE 

CALL  7EM01S.NPM.NUM> 

CALL  INPT (S«NRM.NUM) 

GO  TO  1040 
C 

C  READ  p  MATRIX  1U1N/R1M)  INTO  PROPER  AREA  OF  PP  MATRIX 
C 

1320  CONTINUE 

N5V«NPa  (NSYl-n  «NSY? 

KPaKP • 1 

IF1KP.GT.MP1GO  TO  147.1 
NSP  ( K ra  l  aNSY 
CALL  7ER01P.MN.MNI 
CALL  FNPT1P.MN.MN1 
DO  13*0  I«1.MM 
DO  13*0  J-l.MM 
1340  PP 1 KP • I «  J )  »P  < I • J ) 

IF(IPRINT.LT.6»G0  TO  1040 

MRITE(IW.900)FP,NSY.NSP 

CALL  mPRS1P.MN.MN. mm, MM. Q.0.4hPP  ) 

GO  TO  1*40 
C 

C  READ  0  MATRIX  (UlN/U)  INTO  PROPER  AREA  OF  QQ  MATRIX 
C 

1360  CONTINUE 
KQaKO.l 

IF1KQ.GT.MQ1GO  TO  1470 

NSQlKOlaNSYl 

CALL  7EROIQ.MN.NUM> 

CALL  INPT (Q.MN.NUM) 

DO  13PV  I  a l *MM 
DO  13P0  J-l.NUM 
1380  00 1KQ. I » Jl «0 1 1 »  J) 

GO  TO  1040 
1400  CONTINUE 
C 

C  PRINT  ERROR  MESSEGF 
C 

WRITE 1 IP* 1420) 

1420  FORMAT 11H1.//.IX.  37HDAT  A  CONTROL  CARD  SPECIFICATION  ERROR! 

STOP  111 
1440  CONTINUE 

WRITE  ( IP*  1460 IMP* MR, 

1460  FORMAT(IH1.//.1X«36HTOO  many  systems  FOR  COMBINING. 
1//.1X.5HKB  »  . I2.5X*5hMR  *  .I?) 

STOP  111 
1470  CONTINUE 

WRITE  1 IW. 1475) 


SINK  1J1 
S1MK  132 
SIMK  133 
SIMK  134 
SIMK  1 35 
SIMK  136 
SIMK  137 
SIMK  138 
SIMK  139 
SIMK  140 
SIMK  141 
SIMK  142 
SIMK  143 
SIMK  144 
SIMK  145 
SIMK  146 
SIMK  147 
SIMK  148 
SIMK  149 
SIMK  ISO 
SIMK  1 S i 
SIMK  152 
SIMK  1S3 
SIMK  154 
SIMK  155 
SIMK  156 
SIMK  157 
SIMK  158 
SIMK  159 
SIMK  160 
SIMK  161 
SIMK  162 
SIMK  163 
SIMK  164 
SIMK  165 
SIMK  166 
SIMK  167 
SIMK  168 
SIMK  169 
SIMK  |70 
SIMK  171 
SIMK  172 
SIMK  173 
SIMK  174 
SIMK  175 
SIMK  176 
SIMK  177 
SIMK  178 
SIMK  179 
SIMK  180 
SIMK  181 
SIMK  182 
SIMK  183 
SIMK  184 
SIMK  185 
SIMK  186 
SIMK  187 
SIMK  158 
SIMK  169 
SIMK  190 
SIMK  191 
SIMK  192 
SIMK  193 
SIMK  194 
SIMK  195 
SIMK  196 
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1475  FORMAT ( |H1,//. IXi 3QHT00  MANY  INTERCONNECTIONS  TOP  COMBINING! 
STOP  111 

obtain  quadruple  data  for  subsystems  from  q  data  file 
continue 

00  1440  1-1.20 
1490  CAR0«  I>>H£A0U> 

00  15’0  N-I.KB 
NSY-nsysini 
00  15*0  I  *  1 » 20 
MCAOI  n»SMEA0(NSY.  I  » 

1500  CONTINUE 

CALL  F1LEIJ0. LOCATE. HEAD! 

READ UO>T. NNXN. NNRn.NNUN. 

1  I (AT  < I. J.NI . I-l .NNXN) . J«l .NNXN)  • 

2  ( (BT (I. J.NI .1-1. NNXN). J-  l « NNUN )  . 

3  ( (CT ( I .J.NI . !■! .NNRN) *  J*1 .NNXN)  . 

4  ( (OT(I.J.N) .I-l.NNRNl.J-l.NNUN) 

NNX (N) -NNXN 

NNR(N)«NNRN 
NNU (N) -NNUN 

STORE  THE  IMPLICIT  MOOEL  SYSTEM  DIMENSIONS  SEPARATELY 

IF (NSY .NE.NRI GO  TO  1510 
NX  1 -NNXN 

nri-nnpn 
nui-nnun 
1510  CONTINUE 
152#  CONTINUE 

DO  153#  1-1.20 
1530  MEAO(p-CARO<I) 

FORM  INTERCONNECTION  OUAORUoLES 

CALL  7ER01P.MN.MNI 
CALL  7ER01Q.MN.NUMl 
CALL  7ER01R.NRM.MNl 

FORM  R  MATRIX  IR/Rfl 

KVOUT-8 

NM1-I 

NM2-# 

00  1565  M- I .MB 
KYOUT -KYOUT»NNR(M) 

IF  (M.r.T.l  INM1-NM1  *NNR  (M-l  I 
NM2-NM2.NNR1MI 
NSY2-NSYS1M1 
00  1533  MR-1, MR 
IFINSPIMR) *E0.NSY2)G0  TO  1536 
1533  CONTINUE 
GO  TO  1545 
1536  CONTINUE 

00  154#  I-l.NRM 
00  154#  J-NM1.NM2 
JJ- J«NM1 ♦ 1 

156#  R1 I* Jl -RR1MR, I « JJI 
1545  CONTINUE 

FORM  P  MATRIX  tUI/RI 1 


SIMM  197 
SIMM  198 
SIMM  199 
SIMM  200 
SIMM  201 
SIMM  202 
SIMM  203 
SIMM  204 
SIMM  205 
SIMM  206 
SIMM  207 
SIMM  20B 
SIMM  209 
SIMM  210 
SIMM  211 
SIMM  212 
SIMM  213 
SIMM  214 
SIMM  215 
SIMM  216 
SIMM  217 
SIMM  218 
SIMM  219 
SIMM  220 
SIMM  221 
SIMM  222 
SIMM  223 
SIMM  224 
SIMM  225 
SIMM  226 
SIMM  227 
SIMM  228 
SIMM  229 
SIMM  230 
SIMM  231 
SIMM  232 
SIMM  233 
SIMM  234 
SIMM  235 
SIMM  236 
SIMM  237 
SIMM  238 
SIMM  239 
SIMM  240 
SIMM  241 
SIMM  242 
SIMM  243 
SIMM  244 
SIMM  245 
SIMM  246 
SIMM  247 
SIMM  248 
SIMM  249 
SIMM  250 
SIMM  251 
SIMM  252 
SIMM  '253 
SIMM  254 
SIMM  255 
SIMM  256 
SIMM  257 
SIMM  258 
SIMM  259 


NNI-1  SIMM  260 

NN2-#  SIMM  261 


00  1562  N-l.KB  SINK  262 

Figure  32.  Subroutine  SIMK  Program  Listing  (Continued) 
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1 E  <  N  .  f.  T  .  I  >NN1*NN|  *NNUIN-1 ) 

NN?*Nn2.NNU(N> 

NSY1»NSYS<N> 

NSY*No*(NSYl»l 1 »NSY? 

00  15=0  KP«|,MP 
!E(NSp(KP).EO.NSY)GO  TO  1555 
1550  CONTINUE 
GO  TO  156? 

1555  CONTINUE 

00  15*0  I *NN 1 «NN2 
II* l“NNI ♦ 1 
00  15*0  J*NM 1 «NM2 
JJ*J-uMl*l 

1560  P(I«Jt*PP(KP.II.JJl 
1562  CONTINUE 

IM|P»INT.LT.6>G0  TO  1565 
*»ITE< IW.9001KP.NSY.NSP 
NNP«Nn?-NN1*1 
NMP*NM?-NN1 • 1 

CALL  MPRS<P.MN.MN.NNP.NMP,0,0.*HPP  ) 

1565  CONTINUE 

FORM  0  MATRIX  (UI/IM 

KYIN-; 

NN1*I 

NN2*0 

DO  1600  N*1.KR 

KYIN*kYIN«NNU(N» 

ir(N.r-T.l»NNl*NNl*NNU(N-l> 

NN?*Nn2«NNU(N1 
NSYl*NSYS(Nt 
CO  1570  KQ»1,M0 
IF(NS0(K01.E0.NSY1)G0  TO  1575 
1570  CONTINUE 
GO  TO  1600 
1575  CONTINUE 

00  1SH0  I-NN1.NN? 

II*I-'JN1M 
DO  15«0  J*1.NUM 
1580  Q( I . J) *00 (KQt 1 1 « J) 

1600  CONTINUE 

IF«IP9INT.NE.6»G0  TO  1610 

CALL  ^PRS(P.MN«MN.*YIN»KYOUT.T»*HPR  > 

CALL  *PRS (Q.MN.NUM.KY IN.NUM »T «*HOR  ) 

CALL  NPRS (R.NRM.MN.NRM.KYOUT.T »*MRR  1 
CALL  NPRS 1S.NRM.NUM  *NRM»NUM*T**HSR  I 
1610  CONTINUE 

CALCULATE  NR  AND  Nil  BY  USING  0.  R  AND  S  MATRICES 

00  16*0  J*1.NUM 
00  16?0  IM.KYIN 
IF(0(I.J) .NE.0.01GG  TO  1660 
1620  CONTINUE 

00  16'»0  1*1  »NRM 
IFlSIItJl.NE. 0.0)60  TO  1669 
16*0  CONTINUE 
NU*J-1 
GO  TO  1680 
1660  CONTINUE 
NU*NUM 

1680  CONTINUE 

IE (NU.EO.O I  GO  TO  1780 
00  17*0  1*1. NPM 
00  1710  J*1 .KYOUT 


SINK  263 
SINK  26* 
SINK  265 
SIMK  266 
SINK  267 
SIMK  268 
SIMK  269 
SIMK  270 
SIMK  271 
SIMK  272 
SIMK  273 
SIMK  27* 
SIMK  275 
SIMK  276 
SIMK  277 
SIMK  278 
SIMK  279 
SIMK  280 
SIMK  261 
SIMK  282 
SIMK  263 
SIMK  28* 
SIMK  285 
SIMK  286 
SIMK  287 
SIMK  268 
SIMK  289 
SIMK  290 
SIMK  291 
SIMK  292 
SIMK  293 
SIMK  29* 
SIMK  295 
SIMK  296 
SIMK  297 
SIMK  298 
SIMK  299 
SIMK  300 
SIMK  301 
SIMK  302 
SIMK  303 
SIMK  30* 
SIMK  305 
SIMK  306 
SIMK  307 
SIMK  308 
SIMK  309 
SIMK  310 
SIMK  311 
SIMK  312 
SIMK  313 
SIMK  31* 
SIMK  315 
SIMK  316 
SIMK  317 
SIMK  318 
SIMK  319 
SIMK  320 
SIMK  321 
SIMK  322 
SIMK  323 
SIMK  32* 
SIMK  325 
SIMK  326 
SIMK  327 
SIMK  328 
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IFIRI  i,  Jt  .NE.O.OIGO  TO  174.0 
1700  CONTINUE 

00  1 7,0  J=1.NU 
IFISI J.JI .NE.O.OIGO  TO  17*0 
1720  CONTINUE 
NR-I-i 
00  TO  1 760 
1740  CONTINUE 
NR=NR  i 

1760  CONTI  iUE 

IF (NR. OT. 0)00  TO  1»?0 
C 

C  PRINT  FRPOR  MESSFGf 

C 

1780  CONTI  jUE 

WR I TF  < I  * « 1800) 

1800  FORMAT ( IMl .//. I  X. 3khINTERC0'INfCTI0N  SPECIFICATION  ERROR) 
STOP  111 
C 

C  CALCULATE  NX  ANO  Nv 

1820  CONTINUE 
NX*0 

00  18*0  N* 1  *KR 
NX.NX.NNX(N) 

1840  CONTINUE 

NY«KY TN»KYOUT 

IF(  ( IPPINT.NE.il .AND. < IPRINT.LT .5)160  TO  1880 
WRITE <IW. 1860) 

1860  FORMAT ( // . ?0X . ?BH* • •  INTERCONNECTION  DATA  •*•«//) 

CALL  ^PRSIP.MN.MN.KYlN.KYOUT.TtAHP  I 
CALL  -.PRS  IQ.MN.NUM.KY  IN.NIJ.  T  »  *HQ  I 
CALL  mPPS (R.NPN.MN.NR.KYOUT.T  »4hS  ) 

CALL  mPRS<S.NRM.NUm,NP.NU.T,4mS  ) 

C 

C  CALCUl  ATE  NSA.NPA  ANO  NUA 

C 

1880  CONTINUE 

NXA*Nx-NX 1 
NRAsNP-NRI 
NUA*N  l-NUl 
C 

C  WRITE  INTERCONNECTION  DATA  ON  SCRATCH  FILE  FOR  NAMEL 

C  TO  FOPM  NAME  LIST  nAT A 
C 

REWINO  js 

IF(IPJINT.E0.6)WRITF( IW.189J) 

1890  FORMAT (/. IX. 30HDATA  ON  SCRATCH  FILE  FOR  NAMEL*/) 

C 

C  CALCULATE  ANO  WRITF  DATA  TO  FORM  NAME  LIST  FOR  OUTPUTS 
C 

CARD  II )«MOUTP 
WRITE (JS.1060)CAPO 
IF ( IPDINT.E0.6IWRITEI I W.  2001 (CARD 
2000  FORMAT ( IX. 20A4I 
NNRK* 

NNRKPsl 

DO  2l'iC  K«|,KB 
NNRK*NNRK»NNR»k ) 

I F  <  K  .  r,  T  .  1 )  NNPX  P  *NNRKP  »NNR  ( K  - 1 1 
DO  P10C  1=1. NR 
DO  21 00  J*NNRkp,NNBK 

ifir(?,j),eo.o.o)go  to  ?ioo 

C  DO  20?0  11=1. NR 

c  IF<!I,E0.I)f,0  TO  2020 

C  TFIPI  I  T  .  J)  ,NE. 0.0)00  TO  2 1  0 C. 


SIMK  329 
SIMK  330 
SIMK  331 
SIMK  332 
SIMK  333 
SIMK  33* 
SIMK  335 
SIMK  336 
SIMK  337 
SIMK  338 
SIMK  339 
SIMK  340 
SIMK  341 
SIMK  342 
SIMK  343 
SIMK  344 
SIMK  345 
SIMK  346 
SIMK  347 
SIMK  348 
SIMK  349 
SIMK  350 
SIMK  351 
SIMK  352 
SIMK  353 
SIMK  354 
SIMK  355 
SIMK  356 
SIMK  357 
SIMK  358 
SIMK  359 
SIMK  360 
SIMK  361 
SIMK  362 
SIMK  363 
SIMK  364 
SIMK  365 
SIMK  366 
SIMK  367 
SIMK  368 
SIMK  369 
SIMK  370 
SIMK  371 
SIMK  372 
SIMK  373 
SINK  374 
SIMK  375 
SIMK  376 
SIMK  377 
SIMK  378 
SIMK  379 
SIMK  380 
SIMK  381 
SIMK  382 
SIMK  383 
SIMK  384 
SIMK  385 
SIMK  386 
SIMK  387 
SIMK  388 
SIMK  389 
SIMK  390 
SIMK  391 
SIMK  392 
SIMK  393 
SIMK  394 
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non 


C2020  CONTINUE 

00  2040  JJaNNRKP.NNR# 

IE ( JJ.EO.JIOO  TO  2n40 
IFIR(|.JJ>.NE.O.O)ftO  TO  210C 
2040  CONTINUE 
NNRKKrO 
NNRKKoa| 

00  2070  KKs|,KR 
nnRkk  eNNRKK  »NNR <KK  t 

IT  (KK  ,r>T  .  1  )NNRKKP«NNRt<KP*NNP  (<K-1 1 
IF (KK.EO.KIGO  TO  2070 
00  20*>0  JJ«NNRKKP.NNRk* 

IF<R<f«JJ).NE.O.O)r,0  TO  210's 
2060  CONTINUE 
2070  CONTINUE 

J J Ja J-NNRKP » t 

WRITE (JS. 2080) I »K.JJJ 

2000  FQRMAT (312) 

ir (IPPINT.EO.6»WRITE«IW«20<»0) I»Kt JJJ 
2090  F0RMAT<1X.3<I?.1XJ| 

2100  CONTINUE 
I*-l 

WRITE (JS«2080) I 

IF(  |PRINT.E0.6)WRITE(  IWi209(.)  I 

calculate  ano  write  data  to  torn  nawe  list  «-or  inputs 

CARO  < 1 ) »HINPU 

WRITE (JSt 1060) CARO 

ir(|PPINT.EQ.6)WRITE<IW«2000)CARD 

NNUKa ) 

NNUKPal 

DO  2200  K-l.KB 
NNUKaNNUK«NNU<«) 
ir(K.r,T.l)NNU«PaNNUKP«NNUIK-U 
DO  2200  I-NNUKP.NNUK 
DO  2200  J»1 tNU 
IE(0(I.J).E0. 0.0)60  TO  2200 
00  21 ?0  I I*NNUKP«NNUX 
irm.EO.noo  to  2120 
IE(0( ll.j) ,NE. 0.0)00  TO  220C 
2120  CONTINUE 

00  2U0  JJal.NU 
IF( JJ.E0.J)60  TO  2140 
IF(OiltJJ) .NE. 0.0)60  TO  2208 
2140  CONTINUE 
NNUKKaO 
NNUKKOa) 

00  2170  KKa|.KR 
NNUKK xNNUKK *NNU (KK ) 

IF(KK.6T.l)NNUKKPaNNUKKPaNNU(XX-l) 

IF1KK.E0.KI60  TO  2170 
DO  21X0  IlaNNUWKPtNNUKK 
IF(0(II.J).NE. 0.0)60  TO  2200 
2160  CONTINUE 
2170  CONTIUUE 

III»I-NNUKP*1 
WRJTElJS. 2080)  J*K. HI 
IF  < IRPINT .EO. 6) WRITE HWt209))J*K*III 
2200  CONTINUE 
J—l 

WRITE! JS. 2080) J 
IFUPRINT.E0.6)WRITEIIW.209T)  J 
CAROM  )»HEN0 
WRITE (JSt 1060) CARO 
IF (IPrINT.EO. 6) WRITE <IW .2800) CARD 
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C 

c  CQMPU'f  supscsifm  ctatcS  xnot  t n ►  =  a \i «■ » r i  ♦pnoun 

c 

t  *0  CONT  I  i')E 
II=C 

no  ?s I  N=l.KR 

NNXN=mNX  (N) 

no  PC  I=1«NNXN 
1 1  =  1 1  * ) 
xootl  (in  =".o 

NMUM=  !NU(N) 

no  ? Ci  J=1 iNNUN 

?-\  xnoTu  n > =xnon  i i n ♦nr « i » j,m)«ui ( j.m» 

no  ?. o  j=  i . n  Mxr j 

?10  XOOTL  (in  =XDOTL  (  I  I)  »AT  <  1  ,  J,K|)  t-X  ( J,N> 

251  CONTI  SUE 

c 

C  INTERCONNECTION  EOhaTJONS 

c 

C  INTERNAL  OUTPUIS  PlN=CN*XN*r>N’>(JN 

C 

11=0 

no  OS  N= 1  » KB 
NNPN  =  iN« (N> 

00  30  m.NNBM 

ii=ii*i 
yl  ( i  n  =  '. ' 

NNXN=NNX  (M) 

00  0OI  J  =  1  « f(NXN 

3(1  YL<  I  It  =YL  (  I  I  )  *CT  (  I  .  J.N)*X  (  J.Nl 
NN(JN  =  ;MU  <  N  » 

00  30  J=1.NNUN 

3t!0  YL  (  II  t  =YL  (  1  I  1  ♦IT  <  I  .  J»N>  *UI  ( ,I»N) 

350  CONTI  HIE 
C 

C  INTERNAL  INPUTS 

C 

J  =  0 

no  22  n=I.kr 
nnrn=nnr<n> 
no  22  i=i.nnpm 
j=j*  i 

??0  PIN( J' =  RI ( IiNI 
DO  24  I  =  I  * K Y I N 
11=11*1 
YL(U)=?.0 
00  23.  Jsl.KYOUT 
230  YLIIllsYL(m*P(I.  J>*RTN(J> 

00  ’A  J= 1 « NU 

240  YL(Il)=YL<in*0(ItJ>*il(J) 

C 

C  EXTERNAL  RESPONSE  EQUATIONS 

C 

11  =  0 

no  ?*  1=1 •np 
11  =  11  ‘1 
rl<  i  n  =«. 

oo  py  j=i.KYoi.'T 

270  RL(in=«L(II>*p(I*J»*RIN(J> 

DO  28  J= 1  *  NU 

280  RL(II»=RL*I1)*SII.J)*'KJ) 
return 
END 


S I MK  461 
SIMK  462 
SIMK  463 
SIMK  464 
SIMK  465 
SIMK  46b 
SIMK  467 
SIMK  468 
SIMK  469 
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SIMK  472 
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SIMK  496 
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SIMK  500 
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SIMK  505 
SIMK  506 
SIMK  507 
SIMK  508 
SIMK  509 
SIMK  510 
SIMK  511 
SIMK  512 
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SIMK  514 
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SIMK  523 
SIMK  524 


Figure  32.  Subroutine  SIMK  Program  Listing  (Concluded) 


136 


Figure  33. 


Subroutine  QUA  DK  Flow  Chart 
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r>r»r>  r.oorx-.ooonoo'innonnnnoonn 


SUBROlTINK  OUADK  (  A.R.r  , 0 . NN S . YNS • SS .  •  IN  I  TS.NNG.  VNO.DESO.UNI  TO*  UUAOK  2 
1NNI .V  'I.OESI.UNI fl .DESSS.UNITSS.OE S DO .UNI  TOO . Or S I  I .UNIT  II .  OUADK  3 
PNXX.NJP.NUU.NXM.NRv.NuM.Ma.'jHl  QUAOK  4 

OUAOK  5 

TLT  tm-  STaTE  HODtL  OUADK  ft 

j  k  ma-esh  -  me  hone y |_|_  me  ouadk  t 

OUADK  8 
OUADK  9 
OUADK  10 
OUADK  11 
OUADK  1? 
OUADK  Ij 
OUADK  14 
QUADK  IS 
OUAOK  16 

S  T  A  T  r  ,  PSC-JIOTI0N  ARRA  Y  FOP  ALL  SUBSYSTEMS  QUADK  17 
STATC  iNIT  ARRAY  FOB  ALL  SUBSYSTEMS  OUADK  IB 
OUTPUT  DESCRIPTION  APR A v  FOP  ALL  SUMS YSTEMSOUADK  19 
3UTP  )T  UNIT  ARRAY  POP  Ai.L  SUBSYSTEMS  QUADK  20 
INPUT  uESCP  IJT  fON  ARRAY  FOR  ALL  SUBSYSTEMS  QUADK  21 


PJRPO  f  -  TO  READ  niPFrTLT  tM-  STaTF  MOntL 

ANAL! -.IS  -  A  F  rfON&e  /  J  K  ma-ESh  -  T-tF  HONFY#T-LL  INC 

DATE  • ’ I T T £ <  -  |97r 

SUBPROGRAMS  CALLED 

IN  JT 
OD  '0 
NA'iFL 
ZE  ^0 


ARGUMENTS  LIST 
DEsSS 
UNtTSS 
DE  SOO 
UN r TOO 
DE  ->  1 1 
UN  t  T  1 1 
NX  i 

m-> 

NU  I 


INPUT  UNIT  ARRA v  FOR  ALL  SUBSYSTEMS 
NO  Or  ftT ATE  ARRAY  FOR  Al.L  SUBSYSTEMS 
NO  Or  OUTPUT  ARRAY  FOR  ALL  SUBSYSTEMS 
NO  Or  INPUT  ARRAY  PQR  ALL  SUBSYSTEMS 


OTHER  PARAMETERS  APE  DEE 1NE0  IN  CALLING  PROGRAM 

COMMO‘1  /INOUT/  IR. JR. IPRINT, INSERT. LOCATE. NULL. MARK (201 .JN. JO. JS 
COMMO  i  /SYS/  Si~ODE.SDrS(S) • <S YS.HC au ( 20 »  * NSYS (01 ,SH£AD( 9.201 
I  .  PHE  Ai"1  ( ?C  1 

DIMENSION  A  (NXM, NXM) .R (NAB.nUm) .C(NRM.NXM) .DINPM.NUMl 
DIMENSION  NNS (NXM 1 . VNS (NAM*  ? 1 .OESS ( NXM . 1 0 1 .UN  I TS ( MXM. 4 1 
DIMENSION  NNO(NPM) ,VNO(NRM.?l . DESO ( NR N. 1 0 1 . UN I tq ( NRM . 4 1 
DIMENSION  NNI  (NUM)  .VNI  (NUMOI  ,0E5I  (NUN.  101  .UNIT  I  (NUM.41 
DIMENSION  &ESSS(NXm,1.,,mB)  .  IN  I  TSS  ( NAM, 4  .MB) 

DIMENSION  OESOO(NRv.lR.MM)  . 'JN I  TOO  I  NRM. 4, MB) 

DIMENSION  DFSII (NUv.10.MHI .UNITII (NJM.4,M0) 

DIMENSION  NX X  ( MB  1  .NRR(MBI  .M'JU(MB) 

DIMENSION  CARD ( 201 

DATA  hC.MSAMP,HXD0T.HSX/|HC.4HSAMO,4HXD0T.4H/X  / 

DATA  HSU.MRSX.HRSU.HFN0/4H/U  .4HR/X  .4H«/U  .4hEND  / 

T*0.0  S  NX»U  S  NR » c'  *  NU»0 

NR1«0  S  NH’a'l  «  NRiaO  \  NUlaO  i  NU?*0  *  NU3«0 
NX A*0  *  NRAaO  i  N'JAaO 
CALL  tFRO(A.NXv.NXm) 

CALL  /ERO(B.NXM.NUM) 

CALL  XERO(C.NRM.NXM) 

CALL  XPRO (O.NfiM.NUM ) 

READ  OUAORUPLE  DATA  FROM  CARDS 

45  CONTINUE 
100  CONTINUE 

READ! IR. 12ft)CARD 
120  FORMAT (?0A4) 

OECOQr  (4. 140. CARO <1 IICC.OUMvy 
140  FORMAT ( Al .A3) 

IFICC.FQ.HC1G0  TO  TOO 
IF(CAt>0(l  1  .NE.HSAMO1G0  TO  2,0 
ENCODF  1 10. 160. TM) CARD (4) .C AoO ( S I .CARD (61 
160  FORMAT (A4.A4.A?) 

DECODE (10. I AO .TWIT 

1 80  FORMAT (F10, 4) 

200  CONT.TMJF 


QUADK  22 
QUADK  23 
OUAnK  24 
QUADK  25 
QUADK  26 
QUADK  27 
QUADK  28 
QUADK  29 
QUADK  30 
QUADK  31 
QUADK  32 
QUADK  33 
QUADK  34 
QUADK  35 
OUADK  36 
QUADK  37 
QUADK  38 
QUADK  39 
QUADK  40 
QUADK  41 
QUADK  42 
OUADK  43 
QUADK  44 
QUADK  45 
QUADK  46 
QUADK  47 
QUADK  48 
QUADK  49 
OUAOK  50 
QUADK  51 
QUAOK  52 
QUADK  53 
QUAOK  54 
QUAOK  55 
QUAOK  56 
OUADK  57 
QUADK  58 
QUADK  59 
QUADK  60 
QUADK  6 | 
QUAOK  62 
QUAOK  63 
OUAOK  64 


Figure  34.  Subroutine  QUADK  Program  Listing 
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ft  n  f>  o  r>  o  o  o  o  oor>  r»  o  r>  nnn  non 


ir  (  (CaROI  I)  .NE.HXOOT)  V0R.  (CaRr><2)  .ne  .HS*)  *G0  To  220 

REAO  a  MATRIX  (XOOT/X) 

DECODE  I4.210.CARDUI  Inx.DUM'.y 
210  FORMAT ( 1 3 «  A 1 ) 

CALL  1NPT ( A.NXM.NXM) 

00  TO  100 
220  CONTINUE 

IF  I (CaPOIl ) .NE.HXOOT ) .OR ,  (CaRn  (2)  .NE . MSU)  100  TO  24 0 

RE A0  '»  MATRIX  (XOOT/Ut 

DECODE <4. 21 0 .CARO (4 ) ) NX. DUMMY 
DEC0DEI4,230,CAPD<5)  1  DUMMY. nU 
230  FORMAT ( A I • 1 3 1 

CALL  !NPT (B.NXM.NUM) 

GO  TO  100 
240  CONTINUE 

IFICApDII ) .NE.hRSXiGO  TO  26-. 

READ  f  MATRIX  <R/Xl 

DEC0DF (4.210iCARO(4) ) NO .DUMMY 
DECODE ( 4  » 230 . CARD ( c ) ) DUMMY. NX 
CALL  INPTIC.NRM.NXM) 

GO  TO  100 
260  CONTINUE 

IFICAPDd  )  .NE.HPSUtGO  TO  28-5 

REAO  D  MATRIX  IR/U) 

0EC00F(4.2I0.CARD(4) )NP. UUMmy 
OECOOF(4.230.CARO«sn DUMMY, NU 
CALL  INPTIO.NRM.NUM) 

GO  TO  100 
280  CONTINUE 

IFICAODdl  .NE.HFNDIGO  TO  32, T 
READ  aNO  UPOATE  NAME  LIST  OaTa 
NFLAGaO 

CALL  NANCE  INNS. VNS, DESS. UNlTS.NN0.VN0.DES0. UNI TO.NNI.VNI. 
10ESI.IINITI.OESSS.UMITSS.OESOO.UNITOO.OESI  I .UNIT 1 1 .NXX.NRR.NUU. 
2NXM.NpM.NUM.NX .NR.NU.NFLAG.MB.KR.NB) 

WRITE  QUADRUPLE  OATA  ON  F ILF  ODATa 

10*0 

NFLAGs? 

NXA-Nx  S  NRA»NR  S  NUAaNU 

CALL  OOIOIA.B.C.D.DESSS.NX.nR.NU.NXM.NRM.NUM.NXA.NRA.NUA. 
1NR1.NR2.NR3.NUI .NU2.NU3.T.  ID,  IPRInT.  I*i. JQ. HE AO, MARK. 
2L0CATE.NULL. INSERT, MFL AG) 

RETURN 

PRINT  ERROR  MESSEGE 

320  CONTINUE 

WRITE ( IW»  340) 

340  FORMAT  dHl,//»lX»37HOATA  CONTROL  CARO  SPECIFICATION  ERROR) 

STOP  111 
END 


OUADK  65 
QUAOK  66 
OUAOK  67 
QUAOK  68 
QUAOK  69 
QUAOK  70 
OUAOK  71 
QUAOK  72 
QUAOK  73 
QUAOK  74 
QUAOK  75 
QUAOK  76 
QUAOK  77 
QUAOK  78 
QUAOK  79 
QUADK  80 
QUAOK  81 
QUADK  82 
QUAOK  83 
QUAOK  84 
QUADK  85 
QUADK  86 
QUADK  87 
QUAOK  88 
QUAOK  89 
QUAOK  90 
QUAOK  91 
QUADK  92 
QUAOK  93 
OUAOK  94 
OUAOK  95 
QUAOK  96 
QUADK  97 
OUAOK  98 
QUAOK  99 
QUAOK 100 
QUADK 101 
QUAOK 102 
QUAOK 103 
QUAOK 104 
QUAOK 105 
QUAOK 106 
QUADK 107 
OUAOK 108 
QUADK 109 
QUAOK 110 
QUAOK 111 
QUAOK 112 
QUAOK | 13 
QUAOK 114 
QUAOK 115 
QUADK 1 16 
QUAOK 117 
QUAOK 118 
QUADK 119 
QUAOK 120 
QUAOK 121 
QUADK 122 
QUAOK 123 
QUAOK 124 
QUAOK 125 
QUADK 126 
QUAOK 127 


Figure  34.  Subroutine  QUADK  Program  Listing  (Concluded) 
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Figure  35.  Subroutine  STAMK4  Flow  Chart 


ofinf)rtnr*nnoonnoniinnnnnnnnnnnonnnonofirmnonnnonfinnnn 


C 


SURROiTINE  STAMK4IVW.F.U,  A. B.C.D.NNS»VNS. DESS. UNITS*  STAMK4  2 

INNO.V'iO.OESO.UNITO.NNj.VNI.OESI.UNITI.MAXN.MAXM.  STAMK4  3 

2NXM,NuM,NUM.NVM,MR,MSl .MS2.MS3.MS4.NB>  STAMK4  4 

STAMK4  S 

PURPOSE  -  TO  OBTAIN  STATE  S°ACE  MODEL  FROM  USER  WRITTEN  STAMK4  6 

SIMULATION  EQUATION  SUBROUTINE  SIMK2  STAMK4  7 

ANAL IsIS  -  A  F  KONAP  /  J  K  MAHESM  -  THE  HONEYWELL  INC  STAMK4  8 

DATE  WRITTEN  -  197s  STAMK4  9 

STAMK4I0 

SUBPROGRAMS  CALLED  STAMK4U 

DERRM  STAMK4J2 

MPaS  STAMK413 

OOIO  STAMK4I 4 

TOINVR  STAMK41S 

RF.RRRS  STAMK4I6 

NA'EL  STAMK417 

SHK2  STAMK418 


ARGUMFNTS 

LIST 

V 

w 

F 

u 

A 

IN/OUT 

B 

IN/OUT 

C 

IN/OUT 

D 

IN/OUT 

NNS 

IN/OUT 

VNS 

IN/OUT 

DESS 

IN/OUT 

UNITS 

IN/OUT 

NNI 

IN/OUT 

VNO 

IN/OUT 

DESO 

IN/OUT 

UNTTO 

IN/OUT 

NNI 

IN/OUT 

VNI 

IN/OUT 

OESI 

IN/OUT 

UNlTI 

IN/OUT 

MA»N 

INPUT 

MA*M 

INPUT 

NX 

INPUT 

NRm 

INPUT 

NUM 

INPUT 

NYM 

INPUT 

MB 

INPUT 

MSI 

INPUT 

MS3 

INPUT 

MS  3 

INPUT 

MS4 

INPUT 

NB 

INPUT 

V  ARRAY  FOR  COMPUTING  SIMULATION  MATRIX 
W  ARRAY  FOR  COMPUTING  SIMULATION  MATRIX 
SIMULATION  MATRIX 
ARRAY  FOR  EXTERNAL  INPUTS 

state  transition  MATRIX 

CONTROL  INPUT  MATRIX 
STATE  OUTPUT  MATRIX 
CONTROL  OUTPUT  MATRIX 
NUMBER  ARRAY  FOR  STATE 
VARIABLE  NAME  ARRAY  FOR  STATE 

description  array  for  state 

UNIT  ARRAY  FOR  STATE 
NUMBER  ARRAY  FOR  OUTPUT 
VARU8LE  NAME  ARRAY  FOR  OUTPUT 
DESCRIPTION  ARRAY  FOR  OUTPUT 
UNIT  ARRAY  FOR  OUTPUT 
NUMBE»  ARRAY  FOR  INPUT 
variable  name  ARRAY  FOR  INPUT 
DESCRIPTION  ARRAY  FOR  INPUT 
UNIT  ARRAY  FOR  INPUT 

maximum  row  dimension  fdr  Simula  matrix  f 

MAXIMUM  COLUMN  DIMENSION  FOR  SIMU  MATRIX  F 
MAXIMUM  NUMBER  OF  STATES 
MAXIMUM  NUMBER  OF  OUTPUTS 
MAXIMUM  NUMBER  OF  INPUTS 

MAXIMUM  dimension  for  interconn  eouations 

MAXIMUM  NO  or  SUBSYSTEMS  FOR  COMBINING 
MAXIMUM  DIMENSION  FOR  SCRATCH  ARRAY  SI 
MAXIMUM  DIMENSION  FOR  SCRATCH  ARRAY  S2 
MAXIMUM  DIMENSION  FOR  SCRATCH  ARRAY  S3 
MAXIMUM  OIMENSION  FOR  SCRATCH  ARRAY  S* 
MAXIMUM  SYSTEM  NO  -  IMPLICIT  MODEL 


STAMK419 
STAMK420 
STAMK421 
STAMK422 
STAMK423 
STAMK424 
STAMK425 
STAMK426 
STAMK427 
STAMK42B 
STAMK429 
STAMK430 
STAMK431 
STAMK432 
STAMK433 
STAMK434 
STAMK435 
STAMK436 
STAMK437 
STAMK438 
STAMK439 
STAMK440 
STAMK441 
ST  AMK442 
STAMK443 
STAMK444 
STAMK445 
STAMK446 
STAMK447 
STAMK448 
STAMK449 
STAMK4S0 
STAMK4SI 
STAMK452 


COMMON  /INOUT/  IR. IW.IPPINT. INSERT.  LOCATE *NULL. HARM 20> .JN.JO.JS 
COMMON  /SYS/  SC00E.SDESI51 »MSYS.HFAD(20t *NSVS(9)  .SHEA0(9.20) 
l.PHEA  M20> 

DIMENSION  V1MAXNI »W(MAXMI ,F (MAXN.MA/M! 

DIMENSION  IMNUMt 

DIMENSION  A(NXM.NXM) . B (NXM.NUM t.C(NPM.NXM) .D(NRM.NUM) 

DIMENSION  NNSlNXMt , VNS (NXM. 3 1  .DESS (NXM, 1 0) *UNITS<NXM»4> 

DIMENSION  NNOINRMt . VNO (NRM. ?> .DESOINRM. 101 .UNI TO <NRM*4> 

DIMENSION  NNI  (NUM) ,VNI (MUM.*)  .OESI  (NUM.lOt tUNITI (NUM.4I 
COMMON  /SCI/  suit 

OIMENSION  OESSS (NXM. lO.MR) .t;NITSS(NXM.4.MR) 


STAMK453 
STAMK454 
STAMK455 
STAMK4S6 
STAMK4S7 
ST  AMK4S8 
STAMK459 
STAMK460 
STAMK461 
STAMK462 
STAMK463 
STAMK464 


Figure  36.  Subroutine  STAMK4  Program  Listing 


find  oonui  —  r»r»r>  non  r>  n  n 


01 mention  DESOOINRv. 1 t • MR ) • 11N ] TOO ( NRM .4 ,*R ) 

0!  MEN1- ION  OESI  I  INU«. 10.MR)  .unit  II  (NUM.4.MB) 

0 1  MEN  r  I  ON  N  X  *  ( Mm  ,  wRP  ( MM  >  ,  N'  JU  I  MR  ) 

L  1  a  1  *  L?*U1*NXM»MP*Wi  $  i  (_4*L  3  »NRM»MB*  1 0 

L5*L4.NWM*MR«4  *  L4=L5»NUM«pH*10  *  t.7*LMN0M»M«»4 
L8*L  7 *MH  *  L9sL4«MR  S  LI0=LQ»mR 
K(L1  .GT  .MSI  1 

1C ALL  OFHRM(LIO.MS?.MS3.MS4.MSI .MS?.MS3.MS4.<.,0.4MSTAM,4HK4  . T W  > 

NRlaO  *  NR?a©  t  NRYaO  t  N1J1=0  S  NU2*0  %  Nl)3»0 
NXA=0  f  NMA*0  t  NUA»0 
EPSFa).OE-33  i  T*0.0  «  NFL AG*. 3 

INITIALIZING  CALL  TO  SUBROUTINE  SlM<? 

I  N  I  T  * 

NX  a  0  >  NY*©  *  NR*0  %  NU*0 
N 1 3 1  4  N?*N!*NX  $  Nl*N?«NY  A  -J4*N3*NX 
CALL  S  I MK  2  ( W  ( N 1 ) . ri IN? > . W (N3 ) • W ( N4 l , V ( N1 ) . V I N2 ) , V ( N3>  . 
INX.NY.NR.NU.INIT.Tl 

CHECK  FOR  DIMENSION  FRPOR 

IN  I T  =  1 
M*2*Nt.NY»NU 
N*NX •lY.NR 

IF ( (Nt.GT.NXM) ,0». (NR.GT.NRv) .OR. ( NU. GT .NUM ) .OP . ( NY.GT .NVM I ) 

1  CALL  iERPMSINX.NR.M'  «NY .NXM .N^M.NUM.NYM, 1 . C »4HST AM.4HK 1  <  IM> 

N 1  a  1  *  N2*N1»NX  S  N3*N2«NY  %  N4*N3»NX 
DO  101  J*1.M 
91  W(J)=  . 

00  SOI  J*1.M 
W(J>*1  . 

CALL  S  I MK2 (MINI ) . M (N2> ♦ W INI ) . M <N4» . V I N1 » ♦ V  I N2> . V <N3> » 
1NX.NY.NR.NU.INIT.Ti 
W(J)«.,.0 
00  SOI  1 3 1  . N 
01  F ( I  *  J I *W ( I ) 

COMPUTE  THE  SIMULATION  MATRIX 

NV*NX  »NY 

IFIIP^INT .EQ.K) CALL  MPRS (F, M AXN.MtXM, M.M, T , 4HSTM  | 

00  51  I  *  1 »NV 
DO  52  J«1.NV 

52  F(I.J)«-FU.J» 

51  F(1«I)bF<I«I>»). 

CALL  TO INVR ( I SOL » IOSOL  *NV."M,F .MAXN.KOUM.OETI 

IB*NV» 1 

ir.NV.NR 

JB«IR 

JE*M 

00  S3  !»IH.IE 
00  53  JaJB.JE 
00  S3  K«1.NV 

53  F(I,J»aF(I.J).F(I,M*F(K,J) 

00  S3  1*1 ♦ IE 

00  S3'  J=1.JE 

IF(Ar>(f<I»J) ) .LE.FPSF)  F(I,J)  «  0,0 
530  CONTINUE 

IF (IPPINT.EO.G)CALL  MPRS (F .'•AXN.MAXM.N.M.T* 4HS IMI ) 

FORM  a.B.C.O  MATRICES 

JIbNV.1 
J2*NV»NX 
J3*J1 .NX 


STAMK465 
ST  AMK466 
STAMK467 
STAMK468 
STAMK469 
STAMK470 
STAMK471 
STAMK472 
STAMK473 
STAMK474 
STAMK475 
STAMK476 
STAMK477 
STAMK470 
STAMK479 
STAMK480 
STAMK481 
ST  AMK482 
STAMK483 
STAMK484 
STAMK485 
STAMK486 
STAMK487 
ST  AMK488 
STAMK489 
STAMK490 
STAMK491 
ST  AMK492 
STAMK493 
STAMK494 
ST  AMK495 
STAMK496 
ST  AMK497 
ST  AMK498 
STAMK499 
STAMK100 
ST  AMK 101 
STAMK 102 
ST  AMK 103 
ST AMK 104 
ST  AMK 105 
STAMK 106 
STAMK107 
STAMK 1 08 
STAMK109 
STAMK 110 
STAMK 111 
STAMK1 12 
STAMK 113 
STAMK1 14 
STAMK 1 15 
STAMK116 
STAMK  117 
STAMK 118 
STAMK 119 
STAMK120 
STAMK 121 
STAMK122 
STAMK 123 
STAMK124 
STAMK125 
STAMK 126 
STAMKI27 
STAMK128 
ST  AMK 1 29 
STAMK130 


Figure  36.  Subroutine  STAMK4  Program  Listing  (Continued) 
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o  on  non 


J4*J2»NU 
1 1  *NV ♦ 1 
12*NV.*.W 
00  69  .1  I >  1  .NX 
00  60'1 1  J*Jl.J? 

JJ*J-J| ♦ 1 

6001  A  <  I  «  J  l>*F  (  ]  .  Jt 
00  h0(.'2  1*1. NX 
00  60  ^  2  J*J3«J4 
JJ* J- j3* 1 

6002  8(1. J  iltriliJl 
00  60^3  1*11.1? 

11*1-11*1 

00  60.3  J*J|.J? 

JJ*J-J! *1 

6003  C ( 1 1 « JJ>  *F  < I . J) 

oo  60 ;•*  i*n.i? 
n*i-!i*i 

00  OO-'A  J*J3.J4 
JJ*J- 13*1 

6004  0(11. JJ)-F(l.J) 

BEAD  AND  UPDATE  NAHE  LIST  OaTa 
KB*NM4X 

CALL  MAHEL (NNS. VNS. DESS. UNITS. NNO.VNO.DESO.UNITO.NNl.VNl. 
IDES!. UNIT  I. SI (Ll).Sl <L?>  «S1 (L3I.S1 (L41 .SI ILSt.Sl <L6>« 

2S1 (L7l  .SI <L8> .SI (LQ) «NAH.NRN,NUH.NX.NR.NU.NFLAr,,NB.KB.NB> 

WRITE  OUAORUPLE  DATA  ON  FILE  OOATA 

10*0 
hflag*? 

NX A*NX  i  NBA-NB  S  NUAsNU 

CALL  QDIO( A.fl.C.D. A.NX.NR.NtJ.NXM.NRH.NUH.NXA.NPA.NUA. 
1NB1.NB2.NB3.NUI .NU2.NU3.  T , 10. IPBInT. I  rt  .  J(J  .HE  AD.  HARK  . 

2L OCATf> NULL. INSERT. MFLAG1 
RETURN 
ENO 


STANK  1 3 1 
STAHK132 
STAMK133 
ST  AHK 1 34 
STAHK135 
ST  AHK 1 36 
STAHKJ37 
ST  AHK 1 38 
STAHK 1 39 
STAHK |40 
STAHK 14 l 
STAHK 142 
STAHK 143 
STAMK 144 
STAHK165 
STAHK 146 
STAHK 147 
STAHK148 
STAHK 149 
STAHK 150 
STAHK 1 5 1 
c  l  AHK 152 
STAHK1S3 
Si AHK 154 
STAHK 155 
STAHK 156 
STAHK 157 
STAHK 158 
STAHK159 
STAHK 160 
STAHK 161 
STAHK162 
STAHK 163 
STAHK |64 
STAHK165 
STAHK166 
STAHK167 
ST  AHK 168 
STAHK169 


Figure  36.  Subroutine  STAMK4  Program  Listing  (Concluded) 
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Yes 


Initialize  and 
Set  Filter  and 
Controller 
Gains 


Set  Up 
Di fferential 
Equations  for 
the  System 


Set  Up 

Summing  Point 
(Y)  Equations 


I 


Read  Switch 
Positions  for 
Controller  and 
New  Controller 
Gains  from 
Cards 


Set  Up 
External 
Response 
Equations 


I 


Set  Up 
the  System 
Dimensions 


I 


3 


^  Return  ^ 


^  Return  ^ 


Figure  37.  Subroutine  SIMK2  Flow  Chart 
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c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


SUBROUTINE  SIMK2<An0T,Y.X,U.XD0TL,YL»RL*NX.NY»NR.NU»lNIT*T> 


PURPOSE  -  TO  IMPLEMENT  SIMULATION  EQUATIONS  FOR  C5A  CONTROLLER 
ANAL  I S  JS  *  A  F  KONAR  /UK  MAmESH  -  THE  HONEYMELL  INC 
OATE  WRITTEN  -  1975 


ARGUMFNTS  LIST 


c 

XDOT 

ARRAY  FOR 

STATE  DERIVATIVES 

c 

Y 

ARRAY  for 

Y  EQJATIONS 

c 

X 

ARRAY  FOR 

STATES 

c 

U 

ARRAY  FOR 

FaTERNAL  inputs 

c 

XOOTL 

OUTPUT 

ARRAY  FOR 

derivative  of  state 

c 

YL 

OUTPUT 

ARRAY  FOR 

Y  EQUATION  VARIABLES 

c 

RL 

OUTPUT 

ARRAY  FOR 

external  response  VARIABLES 

c 

NX 

OUTPUT 

NUMBER  of 

STATES 

c 

NY 

OUTPUT 

number  of 

Y  EQUATIONS 

c 

NR 

OUTPUT 

NUMBER  of 

outpjts 

c 

NU 

OUTPUT 

number  of 

INPUTS 

c 

INI  T 

INPUT 

INITIAL  MODE  FLAG 

c 

T 

OUTPUT 

SAMPLE  time 

check  ir  initialization  node 

IF  I  IN l T  ,NE • 0 )  GO  TO  100 
SET  FILTER  GAINS 


AP—.I  S  BP*.2?36lF-03 

ANF*-*.0 

AF*-.n? 

AMI*-, 01 
AM2«-.fll 

AMF—l.  t  BHF *-l  , 

AT Fa-4.9  %  BTF*4.0 


SET  CONTROLLER  SNITCHES 

SAS*0.0  S  ALDCS*0.0  *  MLCl*0.3  *  MLC2*0,0 
SET  CONTROLLER  GAINS 


KM1*1, 0/0.26 
KM2*I ,0/0.05591 
KAF*36. 0*0.26 
KO*0.S 
KP*0. 306>* 

KNF  —  0.09 


REAO  CONTROLLER  SNITCHES  ON  AND  CONTROLLER  GAIN  VALUES 


10 


20 


CONTINUE 

READ ( IR.20 ) CARO 

FORMAT <20 A* > 

IF (CAoO< 1 1 .EO.HENOB I  GO  TO  80 


Figure  38.  Subroutine  SIMK2  Program  Listing 
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DIMENSION  XDOT (NXI  . Y ( NY ) , X ( NX  I . U  <  NU )  .XOOTL (NXI ,YL (NY) . RL(NR) 
COMMON  /INOUT/  IR. IN.  IPRINT, INSERT, LOCATE. NULL, MARK C20I.JN. JO. JS 
DIMENSION  CARD(?0) 

REAL  KM I ,KM2,KAF.KO.Ko,knf,MLCI.MLC2 

DATA  mEN0B,HNITC.HA!N8/4HEN0  ,4hN I TC.4HAIN  / 

OATA  HMLC1.HMLC?.HSASB,HALDC/4HMLCI#4MMLC2.4MSAS  .4HALOC/ 

DATA  hKM1B,hKM2B.HKAFB,HK0BR/4HKMI  ,4HKM2  ,4HKaF  ,4HKQ  / 

DATA  HKPBB.HKNFB/4HKP  .4MKNF  / 


SIMK2 
SIMK2 
SIMK2 
SIMK2 
SIMK2 
SIMK2 
SIMK2 
SIMK2 
SIMK2  IP 
SIMK2  11 
SIMK2  12 
SIMK2  13 
SIMK2  U 
SIMK2  IS 
S1MK2  16 
SIMK2  17 
SIMK2  10 
S1MK2  19 
SIMK2  20 
SIMK2  21 
SIMK2  22 
SIMK2  23 
SIMK2  24 
SIMK2  25 
SIMK2  26 
SIMK2  27 
SIMK2  20 
SIMK2  29 
SIMK2  30 
SIMK2  31 
SIMK2  32 
S1MK2  33 
SIMK2  34 
S1MK2  35 
SIMK2  36 
SINK2  37 
S1MK2  30 
S1MK2  39 
SIMK2  40 
SIMK2  41 
SIMK2  42 
SINK2  43 
SIMK2  44 
SINK2  45 
S1MK2  46 
S1MK2  47 
SINK2  40 
SIMK2  49 
S1MK2  SO 
SINK2  51 
SIMK2  52 
SIMK2  S3 
SIMM 2  54 

SINKS  55 
SINKS  54 
SINKS  57 
SINK2  50 
SINKS  59 
SINKS  60 
SINKS  41 
SINKS  42 
SINKS  43 
SINKS  44 


...  M  N I . a 


If <CA»D<4) ,NE.«WlTC)GO  TO  40 

SIMK2  65 

c 

SINK 2  66 

c 

re«d  controller  switches  on 

SIMK2  67 

c 

SIMK2  6B 

30 

continue 

SIMK2  69 

READ ( (R  <  20 (CARO 

SIMK2  70 

If  (caro(I)  .eq.hendrigo  to  lo 

SIMK2  71 

If (CARO ( 1 > .EO.MMLCI >MLCI*1 . i 

SIMK2  72 

If  (CAOO(  1  >  .EO.HMLCDGO  TO  3c 

SIMK2  73 

If (CAPO ( I > .EO.MNLC?tMLC2»l . i 

SINK?  74 

if (CARD ( 1 1 .EQ.HMLC? ) GO  TO  30 

SIMK2  75 

If (CARO ( 1 > .EO.HSASBlSAS«I .0 

SIMK2  76 

If (CAPO ( 1 ) .EQ.HSASR ( Go  TO  30 

SINK 2  77 

If (CArO(I) .eo.halocialocs*i.o 

SIMK2  78 

If  (CAROdl  .EOI.HALOCIOO  TO  3fl 

SIMK2  79 

STOP  ill 

SIMK2  60 

C 

SIMK2  81 

C 

REAL  CONTROLLER  GAIN  VALUES 

SIMK2  82 

c 

SINK 2  83 

40 

CONTINUE 

SIMK2  84 

If (CARO (41 .NE.HAlNRlSTOP  111 

SINK 2  85 

so 

CONTINUE 

SIMK2  86 

REAO( lRt20)CARO 

SIMK2  87 

If  (CARO  <  1 )  .EO.HENDR )  GO  TO  1(. 

SIMK2  88 

If (CApD(I) .EO.HKMlRIRfAOl  IR.60IKMI 

SIMK2  89 

60 

PORMAT (EI2.6) 

SIMK2  90 

If (CARD<I».E0.HKM1B)G0  TO  So 

SIMK2  91 

If (CAROI 1) .EO.HKM2R)REAO( IR.60IKM? 

SIMK2  92 

If  (CAROM  >  .EO.HKM2R1GO  TO  5) 

SIMK2  93 

If (CARO(l) .EO.HKAfRlREADI lR.60)KAf 

SIMK2  94 

If (CAoO(l) .EO.HKAfBlGO  TO  So 

SIMK2  95 

If (CAROd ) .EO.HKOBRlRf AO(IR.60)fO 

SIMK2  96 

If  (CAROd  )  .EO.MKOBRIGO  TO  5<j 

SIMK2  97 

if (card d) .eo.mkpbri Read (IR.6o>kp 

SIMK2  98 

If  (CAROd  )  .EO.MKPBBIGO  TO  50 

SIMK2  99 

If (CARD(l) .EQ.HKNfR)REAO<IR.60)KNf 

SIMK2100 

If  (CAROd  )  .EO.MKNfRlGO  TO  Sfl 

SIMK2101 

STOP  111 

SIMK2102 

ao 

CONTINUE 

SINK21 03 

c 

SIMK2104 

c 

SET  DIMENSIONS  Of  SYSTEM 

SIMK2105 

c 

SIMK2106 

NX»7  *  NR»3  S  NU»9  %  NV»5 

SIMK2107 

c 

SIMK2108 

c 

RETURN 

S1MK2109 

c 

SIMK2110 

return 

SIMK21U 

c 

SIMK2112 

c 

simulation  equations 

SIMK2113 

c 

SIMK2114 

III 

continue 

SIMK21 IS 

c 

SIMK21 16 

c 

OlffERENTlAL  EQUATIONS 

SIMK2U7 

c 

SIMK2118 

XOOTL < 1 ) »AP*X ( 1 ) »BP*U ( 3) 

SIMK2119 

XOOTL (2)»ANf»X (2) ♦ALOCS*U(6) 

SIMK2120 

XOOTL (3) *AN1*X ( 3) ♦MLCl#V (2) 

SIMK2121 

XOOTL (4) »Af *X (4 ) ♦ AlOCS»Y  ( 1 1 

SIMK2122 

XOOTL (5) *ATf *X (5) *BTf*Y (3) 

SIMK2123 

XOOTL  <61 RAMfRX (61 *RHf*U<2> 

S1MK2124 

XOOTL (7) «AM2»X <7>  *MLC2*Y (4) 

SIMK2125 

c 

SIMK2126 

c 

SUMMING  POINT  EOUATIONS 

SIMK2127 

c 

SIMK2128 

YL (1 ) Af *X (2> ♦ ANf *U ( 4 ) 

SIMK2129 

YL«2)»e:m*Ut6)-Ul9) 

SIMK2130 

Figure  38.  Subroutine  SIMK2  Program  Listing  (Continued) 
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YLI3>«KP*X<|  »  ♦X(6)  »U(?t  ♦KNr«U(7> 
YLI4>»KH2«UI5I-U<9> 

YL (5) >ALOCS*X (51 *X ( 1 ) *SAS*KQ*U IB  > 


RESPONSE  EQUATIONS 


rl  i  n  «uc i > 

RLI2>*Y(5) 
RL (3) *X  1 1 ) 


RETURN 


RETURN 

END 


SIHK2131 
SIMK2132 
SIMK2I33 
SIMK21  34 
SIMK21 35 
SIHK2I36 
SIMK2137 
SIMK213S 
SIMK2139 
SIMK2140 
SIHK2141 
SIMK2142 
SIMK2I43 
SIMK2144 


Figure  38.  Subroutine  SIMK2  Program  Listing  (Concluded) 
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m 


Figure  39. 


Modify  the 
Name  List  Data 
(Can  MNAME ) 


Read  Reduction 
and  Shufflinp 
Data 

(Call  RSDRD) 


Shuffle  State 
ISpace  Data  and 
|Name  List  Data 
(Call  SHUFF) 


I 


Reduce  the 
|State  Space  Data 
by  Truncation 
or 

Residualization 
(Call  REDUCE) 


I 


Print  Name  List  | 
Data  and  Write 
on  NDATA  File 
(Call  MNAME) 

^rmt  State 


Space  Data  and 
| Write  on  ODATA 
File 

(Call  QDIO) 


Return 


Subroutine  CONDK  Flow  Chart  (Concluded) 
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oonnoooooooonooooooooooooooooncinooorioooonoooooooiocioocionoori 


SUBROUTINE  CONOK < A . B»C • D.CM .DM .NNS t VMS . DESS .UN I TS «NNO* VNO*DESO* 
lUNITO.NN|.VN1.0ESI.UNm»NNNS.VNN5.DESNS.UNITNS.NNNO*VNNO»OESNO. 
2UNITNO.NNNI.VNNI.0ESNI,UNITNl.DUMMYl.DUMMT2,DUMNY3.ES.ER.NSMUFS» 
3NSMUFO.NSHUFI .CS.OS.CW.DW, IbS.Q.NXM.NRM.NUM.NOMU .NDM12.NOM21. 
4NDM?2> 

PURPOSE  -  TO  CONDITION  TH£  STATE  SPACE  OUADRUPlE  OATA 

(RESPONSE  SPECIFICATIONS.  TRUNCATION  ANO  RESIDUAL IZAT ION 

AND  SuUFFL INGI 

ANAL  I  *5 1 S  -  A  F  KONAR  /  J  K  MAHESH  -  THE  HONEYWFLL  INC 

OATE  WRITTEN  -  197«; 

NOTE  -  PREVIOUS  NAME  OF  THE  SUBROUTINE  IS  RESPk 

SUBPROGRAMS  CALLED 
QD  TO 
DEHUG 
MNAME 
ERHM 
SDpO 
SCAL 
DI*TK 
IMbATE 
RSDRO 
ShuFF 
REDUCE 
HPo 


CONOK  2 
CONOK  3 
CONOK  4 
CONOK  5 
CONOK  6 
CONOK  7 
CONOK  6 
CONOK  9 
CONOK  19 
CONOK  II 
CONOK  12 
CONOK  19 
CONOK  14 
CONOK  IS 
CONOK  16 
CONOK  17 
CONOK  10 
CONOK  19 
CONOK  20 
CONOK  21 
CONOK  22 
CONOK  23 
CONOK  24 
CONOK  25 
CONOK  26 
CONOK  27 
CONDK  26 


ARGUMrNTS  LIST 


A 

IN/OUT 

B 

IN/OUT 

C 

IN/OUT 

D 

IN/OUT 

CM 

IN/OUT 

DM 

IN/OUT 

NNS 

IN/OUT 

VNS 

IN/OUT 

DESS 

IN/OUT 

UNITS 

IN/OUT 

NNO 

IN/OUT 

VNO 

IN/OUT 

DESO 

IN/OUT 

UN  J  TO 

IN/OUT 

NNt 

IN/OUT 

VN! 

IN/OUT 

OESI 

IN/OUT 

UN  I  T  I 

IN/OUT 

NNnS 

1N/OUT 

VNnS 

IN/OUT 

DESNS 

IN/OUT 

UNJTNS 

IN/OUT 

NNniO 

IN/OUT 

VNnO 

IN/OUT 

OESNO 

IN/OUT 

UNJTNO 

IN/OUT 

nnhi 

IN/OUT 

VN*I  1 

IN/OUT 

OESNI 

IN/OUT 

UNI  TNI 

IN/OUT 

DUMMY! 

DUMMY2 

DUHMY3 

ES 

OUTPUT 

ER 

OUTPUT 

Figure  40. 


state  transition  matrix 

CONTROL  INPUT  MATRIX 
STATE  OUTPUT  MATRIX 
CONTROL  OUTPUT  MATRIX 
MOOirlEO  STATE  OUTPUT  MATRIX 
MOOirlEO  CONTROL  OUTPUT  MATRIX 

OLO  NUMBER  array  for  state 

OLD  VARIABLE  NAME  ARRAY  FOR  STATE 

OLD  DESCRIPTION  ARRAY  FOR  STATE 

OLD  UNIT  ARRAY  FOR  STATE 

OLD  NUMBER  ARRAY  FOR  OUTPUT 

OLD  VARIABLE  NAME  ARRAY  FOR  OUTPUT 

OLD  DESCRIPTION  ARRAY  FOR  OUTPUT 

OLO  UNIT  ARRAY  FOR  OUTPUT 

OLO  NUMBER  ARRAY  FOR  INPUT 

OLD  VARIABLE  NAME  ARRAY  FOR  INPUT 

OLO  DESCRIPTION  ARRAY  FOR  INPUT 

OLD  UNIT  ARRAY  FOR  INPUT 

NEW  NUMBER  ARRAY  FOR  STxTE 

NEW  VARIABLE  NAME  ARRAY  FOR  STATE 

NEW  DESCRIPTION  ARRAY  FOR  STATE 

NEW  UNIT  ARRAY  FOR  STATE 

NEW  NUM8ER  ARRAY  FOR  OUTPUT 

NEW  VARIABLE  NAME  ARRAY  FOR  OUTPUT 

NEW  DESCRIPTION  ARRAY  FOR  OUTPUT 

NEW  UNIT  ARRAY  FOR  OUTPUT 

NEW  NUMBER  ARRAY  FOR  INPUT 

NEW  VARIABLE  NAME  ARRAY  FOR  INPUT 

NEW  DESCRIPTION  ARRAY  FDR  INPUT 

NEW  UNIT  ARRAY  FOR  INPUT 

SCRATCH  ARRAY 

SCRATCH  ARRAY 

SCRATCH  array 

state  resioualization  error  matrix 
output  RESIOUALIZATION  error  matrix 


CONOK  29 
CONOK  30 
CONOK  31 
CONOK  32 
CONOK  33 
CONOK  34 
CONOK  35 
CONDK  36 
CONOK  37 
CONOK  36 
CONDK  39 
CONOK  40 
CONDK  41 
CONOK  42 
CONOK  43 
CONOK  44 
CONOK  45 
CONOK  46 
CONDK  47 
CONOK  40 
CONOK  49 
CONOK  50 
CONDK  51 
CONOK  52 
CONDK  S3 
CONOK  54 
CONDK  55 
CONOK  56 
CONOK  57 
CONOK  50 
CONOK  59 
CONOK  60 
CONOK  61 
CONOK  62 
CONOK  63 
CONDK  64 


Subroutine  CONDK  Program  Listing 
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r»or>r>r»r>r»r>r>ooor>or>r>o 


C 

C 

C 


c 

c 

c 


NS-turs 

nshufo 

NS-UFI 

cs 

OS 

CM 

DM 

IPS 

0 

NX“ 
NS" 
NO" 
NO'ill 
NO")  2 
NO  <21 
NO  <22 


INPUT 


INPUT 

INPUT 

IN/OUT 

IN/OUT 

IN/OUT 

IN/OUT 

IN/OUT 

IN/OUT 

INPUT 

input 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 


SHUFrLlNG  ARRAY  FOP  STATE 
SHUFFLING  APSAT  FOR  OUTPUT 
SHUFrLlNG  ASSAY  FOR  INPUT 
SPECIFIED  STATE  OUTPUT  MATRIX 
SPECIFIED  CONTROL  OUTPUT  MATRIX 
IMPLICIT  MODEL  STATE  OUTPUT  MATRIX 
IMPLICIT  MODEL  CONTROL  OUTPUT  MATRIX 
ARRAY  FOP  DERIVATIVES  OF  RESPONSES 
QUADRAT  I C  HEIGHT  MATRIX 
MAXIMUM  NUMBER  OF  STATES 

MAXIMUM  NUMBER  OF  OUTPUTS 

MAXIMUM  NUMBER  OF  INPUTS  „ 

MAX  ROM  DIMENSION  FOR  SCRATCH  ARRAY  DUMMY  I 

MAX  COL  DIMENSION  FOR  SCRATCH  ARRAY  DUMMY1 

MAX  ROM  DIMENSION  FOR  SCRATCH  ARRAY  DUMMY2 

MAX  COL  DIMENSION  FOR  SCRATCH  ARRAY  0UMMY2 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


COMMON  /INOUT/  IR.IH.IPRINT. INSERT. LOCATE. NULL. MARK (20) »JN. JO. JS 
COMMON  /SYS/  SCOOE.SOES (5) . mSyS . HE AD ( 20 ) .NSYS(R) .SHEAD(9»?0> 

'dimension  A(NXM.NXM» ,B<NXM,NUM» .CINRM.NXM, .O(NRM.NUM) 

CM(NRM.NXM)  .OM(NRm.NUM) 

NNS(NXM» ,VNS(NXM.P) ,OESS(NXM.IO).UNITS(NXM,4 
NNO(NRM) ,VNO(NRM,?),OESO(NRM,10) .UNIT01NRM.4) 

NN1 (NUM) ,VNI (NUM,?) .DESI (NUM.IO) . UNIT ! (NUM. 4) 

NNNS(NXM) .VNNSINXM.2) . DESNS ( NXM . 10 ) .UNI TNS ( NXM.4 ) 
NNNO(NRM) ,VNNO(NRM.?> .DESNO(NRM.IO) .UNITN0INRM.4) 
nittPuuON  NNNI  ( NUM  t  .  VNNI  (NUM.R)  .OESN1  (NUM.  10)  *  UN  I  TNI  <  NUM.  4) 
SImInsiSn  OUMMY^NOMH  .NOMI ?)  .DUMMY2  ( NOM2I  .NDMR2)  .DUMMY 3 (NUM) 
DIMENSION  ES(NXM.NiiM) .EP(NRM.NUM) 
niMFNSTON  NSHUFS(NXM) .NSHUFO(NRM) .NSHJFI (NUM) 

DIMENSION  CS(NRM,NxM),OS(NRm.NUM)  ,CH(NRM.NXM».OH(NRM.NUM) 
DIMENSION  IRS(NRM) ,Q(nRM.NRm» 

EQUIVALENCE  (NU1 .NCL*  » (NU2.NGT) . (NU3.NCD) . (NR1.NOR) * (NR2.NPR) • 

1OATa’hEND8.HRBRB.HPDOT.HXDOT/4HEND  * 4HR  . 4HRO0T .4HXD0T/ 

DATA  MXBBB.HSCAL/4HX  .4M~CAL/ 

DATA  HC0NS.HSELE/4MC0NS.4HSFLE/ 

DATA  hSIGN,HRFOR.HFNSO/4HSIgN.4hRFOR.4HENSO/ 

SaTA  MONTR.HUSTB.HOMMA/4HONTR.4HUST  .4H0MMA/ 


READ  9UA0RUPLC  DATA 


10*0 

CALLGODIO(A.B.C.D.Q.NX.NR.NU.NXM.NRM.NUM,NXA.NRA.MUA. 

iSSuNp?.NR3.NU1,NU?.NU3.T.!Q.1PRINT,I-.JQ.PMEAD,MARK. 

2LOCATF .NULL « INSERT .NFLAG) 

IF(IPPINT.EO.S»CALL  DEBUG ( 1  .4HRESP , 4H<  .5.0.1*)) 


READ  NAME  LIST  DATA 


CALL°^NAME(NNS.VNS, DESS. UNITS. NNO.VNO.DESO.UNITO. 

INNI^VNl. DESI. UNIT  I. NNNS.VNNS. DESNS. UNITNS.NNNO.VNNO.DESNO. 

2UNITNO .NNN I .VNNI »DF5N I ,UNI TNI , NX.NR  *NU«  NXM.NRM.NUM . 

3NU1 .NU2.NU3.NRl .NR2.NR3.MFL AG) 

IFIIPPINT.EO.MCALL  DEBUG ( 2 . 4HRESP . 4H<  .5.0. 1*0 

REMIND  JS 

READ ( (R. 140) CARD 

IF(CA»Od)  .EQ.HENOBtGO  TO  HO 

IF(CA0D(1).NE.HSCAL)CALL  ERRHd.4MRE5P.4HX  .5.0. DO 


READ  SCALE  AND  NEM  UNIT  OATA 


CONDK  65 
CONDK  66 
CONDK  67 
CONDK  66 
CONDK  69 
CONDK  70 
CONDK  71 
CONDK  72 
CONDK  73 
CONDK  7 A 
CONDK  75 
CONDK  76 
CONDK  77 
CONDK  76 
CONDK  79 
CONDK  80 
CONDK  81 
CONDK  82 
CONDK  83 
CONOK  84 
CONDK  85 
CONDK  86 
CONDK  87 
CONDK  88 
CONDK  89 
CONDK  90 
CONDK  91 
CONOK  92 
CONDK  93 
CONDK  94 
CONOK  95 
CONDK  96 
CONOK  97 
CONDK  98 
CONDK  99 
CONDK 100 
CONDK 101 
CONDK 102 
CONDK 103 
CONDK 104 
CONDK 105 
CONDK 106 
CONDK 107 
CONDK 108 
CONDK 109 
CONDK  110 
CONDK  111 
CONDK 112 
CONDK 113 
CONDK 114 
CONDK 115 
CONDK 116 
CONDK 117 
CONDK 118 
CONDK 119 
CONDK 120 
CONDK 121 
CONDK 122 
CONDK 123 
CONDK 124 
CONDK 125 
CONDK 126 
CONDK 127 
CONDK 128 
CONDK 129 
CONDK 130 


Figure  40.  Subroutine  CONDK  Program  Listing  (Continued) 
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CALL  SD«0<DUMMY|»UN1TNS.UNItS,DUMMy2*  JN1  TNO.UNl  TO.DUMMY3.UNITNI  . 
1UN1 T I .NX .NR  « NU<NXM<NRM<NUM<  JR « I W • 1  PR  I  NT ) 

C 

C  COMPUTE  SCALED  QUADRUPLES 
C 

CALL  SCAL  <  A  *8  »C .D.OUMMY 1 .DUMMY? , DUMM Y  3 . NX • NR  « NU , NXM .NRM  »NUH ) 

C 

C  READ  RESPONSE  SPECIFICATION  DATA  AND  -RITE  IT 

C  ON  A  SCRATCH  FILE  IS  FOR  USE  RY  SUBROUTINE  MNAME 

C 

110  CONTINUE 

NXO-Nx  S  NRO«NR 
IFLAG.O 

IRR-0  S  Kao  $  NOR«0  t  NPR*0  S  NSR*0 


C0NDK13I 
C0N0K132 
CONDK 1 33 
CONDK 134 
CONDK 135 
C0N0K136 
CONDK 137 
CONDK 1 38 
CONDK 139 
CONDK 140 
CONDK 141 
CONDK 142 
CONDK 143 
CONDK 144 


120 

140 


JU«0  <  NCL*0  S  NGT*0  S  NCD*f; 

1RESP.0 

continue 

REA0< IR.140ICARO 

FORMAT (20A4I 

MRITEfJSf 140ICAR0 

IF (CAPO ( 1 ) .EQ.HENDR ) GO  TO  570 

IRESPal 

if i (Card ( i » .ne.hcons) .and. icaro< i i .ne.hsele » > 

1CALL  FRRMC2,4HRESP,4HK  ,5.0. IW) 

IF (  (CARDOl  .NE.HONTR)  .AND.  <C*R0(3»  .NE.HUSTB)  .AND.  (CARDI3)  .NE. 
1 MOMMA  > ) GO  TO  240 


260 

280 


READ  INPUT  SPECIFICATION  ANO  MODIFY  B  AND  D  MATRICES 


160 


180 

200 

220 


240 


IF (CARD ( 3) .EO.HONTR) IUU-1 
IF (CAPO<3! .EO.HUSTpi I UU*2 
IF  ( C ADD  (  3 )  .EO.HOMMa  1  lull « 3 
CONTINUE 

READ(IR«146)CARD 

WRITE (JS* 140) CARD 

IF (CAPO ( I • .EO.MENDBIGO  TO  2?0 

JUaJU«l 

DECODE <4.340tCARD(?l 1D1.K.0? 
DO  180  I«1»NX 
DUMMY 1 < 1 1 JIM  aB ( I «K I 
DO  200  I-l.NR 
DUMMY?  < I « JU) «D ( I «K ) 

GO  TO  160 
CONTINUE 

IF( lUu.EO.l )NCL»JU 
IF(IUll.E0.2)NGT  ■  JU-NCL 
I F ( 1UI I  ,EO . 3 ) NCD» JU-NCL-NGT 
GO  TO  120 
CONTINUE 

IF(IFlAG«E0.1>G0  TO  300 
NUNaNCL*NGT*NCO 
IF (NUN. £0.0) GO  TO  300 
NUaNUN 

00  260  1*1  #NX 
00  260  Jal.NU 
B ( J • J t  aOUMMYl ( I » J) 

00  280  1*1 .NR 
00  28C  J-l.NU 
0(1  * Ji »DUMMY2 ( I »  J) 

IFLAGal 


READ  OUTPUT  SPECIFICATION  AND  COMPUTE  C  AND  D  MATRICES 


300 


CONTINUE 

!F(CAP0(4> .EO.MSIGN) !RR»1 
IF (CAR0(4I .EO.HRFOP) lRRa? 


CONDK 145 
C0N0K146 
CONDK 147 
CONDK 148 
CONDK 149 
CONDK 150 
CONDK 151 
CONDK 152 
CONDK 153 
CONDK 154 
CONDK 155 
CONDK 156 
C0NDK157 
CONDK 158 
CONDK 159 
CONDK 160 
CONDK 161 
CONDK 162 
CONDK 163 
CONDK 164 
CONDK 165 
CONDK 166 
CONOKI67 
CONDK 168 
CONDK 169 
CONDK 170 
C0N0K171 
CONDK 172 
CONDK 173 
CONDK 174 
CONDK 175 
CONDK 176 
CONDK 177 
CONDK 178 
C0N0K179 
C0NDK180 
CONDK 181 
CONDK 182 
CONDK |83 
CONDK 184 
CONDK 185 
CONDK 186 
CONDK 187 
CONDK 188 
CONDK 189 
CONDK 190 
CONDK 191 
CONDK 192 
CONDK |93 
CONDK 194 
CONDK 195 
CONDK 196 
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-i,  (  . 


.  s,..v . 

)iliTairirii,art44Ait-~,Wn 


^ ...  ■  . 


o  r>  o  r>  n  o 


320 


550 


340 


360 


390 


400 


IF(CA*0(3> .EO.HENSO) IRR*3 
IM*rt  t  IMF *0  5  JsO 
CONTINUE 
READ< TR. 1401CA9D 
WRITE ( JS* 140 ) CARO 
IF(CAuD(l) . E0.HEND0 ) 6 3  TO 
J=J*  1 

DECODF (4 « 340.CARD ( ? ) >  0 1 .K.fp 
FORMAT <A1«1?.A1 ) 

10*0  i  IX=0 

IF(CAPD( 11 .EO.HKHMPIGO  to  360 
10*0  ■*  16  =  1 

IF(CA^0<I).E0.MXBMR»60  TO  360 
10*1  ‘  IX*3 

IF(CAROd)  .EO.WBOOTK.O  TO  360 
10*1  *  I X* 1 

IF (CA*D( 1 ) .EO.HXOOTlfiO 
CALL  rPRMO.4HRESP.4H* 

CONTINUE 

IF<IPoiNT.EQ.6>CALL  DE«UG(3.4mReSp.4h< 

IF(IO.E0.1)C,o  TO  440 

IF (  IX , FQ. 1 ) 00  TO  4’0 

DO  38‘  L=1 .NX 

CS ( J«L  >  =C (<  »L 1 

00  40  L* 1 .NU 

OS<J«l.)*D<K.L> 

00  TO  326 


TO 


360 

*5*0. 1 W » 


.5.0* I M  > 


420 


425 


430 


440 


CONTINUE 
00  424  L*1 .NX 
CS <  J»L ) *0.0 
CS  < J.* ) *1 .0 
00  43  L* 1 «NU 
OS ( JiL ) *0 • 0 
GO  TO  321' 

CONTINUE 

IFdX.EO.llGO  TO  560 
NRS*  1 
l RS ( 1 1  =K 

IF(K.i.F.NRA)GO  TO  450 


OEFINr  FLAGS  ANO  RfSPONSES  rOR  IMOLICIT  MODEL  OPERATION 


IMr*l 
I M* IM ♦ 1 
00  44 >  L= 1 .NX 
443  CW(IM.L)=C(K.L> 

00  444  L*1 »NU 
446  0W( IM,L1=0(K»L) 

450  CONTINUE 

IF(IPPINT.EQ.6>CALL  0FRUG(4.4hRESP.4H« 


.5. 0. 1'W) 


COMPUTF  derivatives  OF  responses 


CALL  nlFFK(A.R.C.0,DUMMYl,DuMv»Y2.NX.NR.NU. 
1NXM«N->M»NUM.NRS« IRS»I0»IW*I°RINT*N0M11 .NDM12.N0M21 .N0M22) 
00  46’  L=l«NX 


460  CS( J»L)=C(NR.H 
DO  48'  L*1 *NU 
490  DS(J«L,!!01NR«L> 
NRsNR-1 
GO  TO  320 
500  CONTINUE 

DO  52"  L=  1  .NX 
520  CS(J»L>=A<K.L> 
00  54  .  L* 1 .NU 
540  OSIJ.I  )*B(K.L) 


CONDK 197 
CONDK 198 
CONDK 199 
C0NDK200 
CONOK201 
C0NDK202 
C0N0K203 
C0NDK204 
CONDK205 
CONOK206 
C0NDK207 
C0NDK208 
C0NDK209 
C0NDK210 
CONOK21 1 
C0NDK212 
C0NDK213 
C0NDK2U 
C0N0K215 
C0NDK216 
C0NDK21 7 
C0NDK218 
C0N0K219 
CONOK220 
C0NDK221 
C0NDK222 
C0N0K223 
C0NDK224 
C0NDK225 
C0NDK226 
C0N0K227 
C0N0K228 
C0N0K229 
C0NDK230 
C0N0K231 
C0NDK232 
C0NDK233 
C0NDK234 
C0NDK235 
C0NDK236 
C0NDK237 
C0NDK238 
C0NDK239 
CONOK240 
C0N0K241 
C0N0K242 
C0N0K243 
CONDK 244 
C0NDK245 
C0N0K246 
C0NDK247 
C0NDK248 
C0NDK249 
CONDK 250 
CONDK 251 
CONDK 252 
CONDK 253 
C0N0K2S4 
C0N0K255 
C0N0K2S6 
C0NDK257 
CONDK 258 
CONDK 259 
CONOK260 
C0NDK261 
C0N0K262 
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1 1  1 1 1  B B 


ft 0  TO  320 
S50  CONTI  'UE 
NR«J 

IF<IHr.EQ.9)fiO  TO  =60 
C 

C  C°MPUre  IMPLICIT  MnOEL  FPOOS  HATES  AND  TRUNCATE  THE 
C  IMPLKIT  MODEL 

C 

nxr«nx-nxa 

IE  (  IM,N£.NXR>CALL  ERRM  <4.4HRESP.4hX  .5.0.IVO 
IE(IPvlNT.f0.6)CALt  DFfllIG(5.AHRESB.»H<  .5.0*110 
CALL  *MRAT£  <CS.OS.CW«OiOOUMmV1 .DUmmV2.NX.NR.NU. 
1NXM.N->M.NUM.NX  A.Nf'A.NUA,  IW,  IP9INT »N0Ml  I  .NDM12.N0M21  »N0M?2t 
560  CONTINUE 
C 

C  COMPUTE  NEW  C  and  0  MATRICES  (OUTPUTS* 

C 

NXN*N( A 
K«0 

IE ( IRo.EO.O»NNP«NR 
IEMRu.EO.liNDR*NR 
IE(IRP.E<J.?)NPP«Nfi 
IEdR".E0.2»K«N0R 
IE(IR«.E0.3»NSR«NR 
IE ( IRb.EQ.3)K«NDR»nPR 
00  56a  1*1. NR 
IK*  I  ♦* 

DO  56X  J«I,NX 
56?  CM( IK. J>*CS< 1 . J> 

DO  56a  J*l.NU 
564  DM  dK .  J I  *05  ( I  »  J I 
NX*NXo  1  NR*NR0 
GO  TO  120 
570  CONTINUE 

IE(IRcSp»EO.0l GO  TO  595 

IE(IPOINT.E0.6»CALL  0eBUG?6,4mRESp.4H<  .5.0.  TIO 
IE(IRw,EO.O»NR«NNR 
IEdRo.EQ.OIGO  TO  575 
NX«NXn  *  NR*NDR*NPR.NSR 
575  CONTINUE 

DO  59t  1*1. NR 
DO  58  J*1.NX 
580  Cd.J)*CMd«J» 

DO  59  J*1.NU 
590  Od.J>*OMd.J> 

C 

C  MOOIEr  NAME  LIST  DATA 
C 

MELAG*? 

CALL  mNAME (NNS. VNS.DESS.UNItS.NNO. VNO.DESO.UNItO. 

INNI'VNI .OESI.UNITI.NNNS.VNNS.DESNS.UNITNS.NNNO.VNNO.OESNO. 
2UNITNn.NNNI.VNNI.DESNl.UNITNl.NX.NR.NJ.NXM.NRM.NUM. 

3NJ1 .NUP.NU3.NR1 .NR2.NR3. MELAG1 
IE41P9INT.ED.MCALL  DEBUG! 7.4mRESP»4H<  .5.0.  1*1 
595  CONTINUE 
C 

C  RE AO  SHUFFLING  AND  REDUCTION  DATA 
C 

CALL  PSDRD (OUMM VI »NSHljFS»QUMMV2*N$hUF0»  DUMNV3.NSMUFI » 
INX.NR.NU.NXRN.NXN.NXR.NRN.NRR.NRT.NUN.NXM.NRM.NUM, 
2IR.JW.IRRINT. JRSSl 
IFdRSS.EU.01GD  TO  600 

IF (IPPINT «EQ.6> CALL  DEPUG(8.4hReSP.4m<  .5.0.00 

IF(IP9INT.LT.6)G0  TO  598 

WRITE ( IW» 5961NX.NR.NU.NXM.NRM.NUM.NDM 

WR I TE II W . 596 » NSHUFS .NSHUFO . NSfUF I 


C0NDK263 

C0NDK264 

C0N0K265 

C0NDK266 

C0NDK267 

C0N0K268 

C0NDK269 

C0NDK270 

C0NDK27 1 

C0NDK?72 

C0N0K273 

C0NDK274 

C0N0K275 

C0NDK276 

C0NDK277 

C0NDK278 

C0NDK279 

C0NDK280 

C0NDK281 

C0NDK282 

C0NDK283 

C0NDK284 

C0NDK285 

C0N0K286 

C0NDK287 

C0NDK288 

C0NDK289 

C0NDK290 

C0NDK291 

C0NDK292 

C0NDK293 

C0NDK294 

C0NDK295 

C0NDK296 

C0N0K297 

C0NDK298 

C0NDK299 

CONDK300 

C0NDK301 

CONDK302 

C0N0K303 

C0NDK304 

C0NDK305 

C0NDK306 

C0NDK307 

CONDK308 

C0N0K309 

CONDK310 

C0NDK31 1 

C0NDK31? 

C0NDK31 3 

OONOK314 

C0NDK315 

C0NDK316 

C0NDK317 

C0N0K318 

C0N0K319 

C0NDK320 

C0N0K321 

C0NDK322 

C0NDK323 

C0NDK324 

C0NDK325 

C0NDK326 

C0N0K327 

C0NDK328 
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KBMWB 


non  non  non  nnn  non 


596  FORMAT (IX. (?0I?.1X>) 

598  CONTINUE 

SHUFFl 6  QUADRUPLE  DAT*  ANO  NAME  LIST  OATA 

CALL  SHUFF(A.«.C.O.NNS.VNS.OESNS»UNIT9S.NNO. 
1VN0.DFSN0.UNITN0.NNI.VNI.0ESM .UN J TNI. 

2NSMUFS. NSMUFO.NSHUFJ. DUMMY  1 .D0MMY?,NX.NR.NU.NXM.NRM.NUM, 
3N0M1 1 .NON l ?.NDM?l .NOM?? ) 

TRUNCATE  THE  SYSTEM  VARIABLES  AS  SPECIFIED 

NXaNXPN 

NRaNR'J 

IF{NR‘I.EQ.O)NR*NRT.NPP 

NUaNUN 

IF(NXP.LE.O)GO  TO  A00 

REDUCE  The  quaoruple  data 

IF(IPpINT.EQ.5)CAll  HPB(HEAO.IW) 

CALL  PEDUCE(A.R.C.D.0UMMY1.0UMMY2.ES.EP. 
INX.NR.NU.NXR.NRP.NPT.NXM.NPM.NUM.T. Ik. I  PRINT. 

2N0M1 I .NDM12.N0MP1 .MOM??) 

IF<IPPINT.E0.6)CALL  DE«UG<9.4hRESb,4H<  .5.0. IX) 

WRITE  NAME  LIST  DATA 

600  CONTINUE 
MFLAG.3 

CALL  MNAME (NNS.VNS.0E5S. UNITS, NNO.vMO.OESO.UNITO. 
1NNI.VnI.DESI,UNITI,NNNS.VNNS«OESNS.UNITNS,NNNO.VNNO«DESNO. 
2UNITNO.NNNI.VNNI.0ESNI,UNITnI.NX,NR»NU.NXM.NRM,NUm, 

3NU1 .NU2.NU3.NR1 .NRP.NR3.MFLAG) 

IF(IPPINT.EQ.6)CALL  0ERUGIM.4HRESP.4MK  .5.0. IW) 

WRITE  QUADRUPLE  DATA 

I Q»0  %  NFLAGa? 

NX A»NX  S  NRAaNR  S  NUAaNU 

CALL  DO 10 ( A.B.C.O.O.NX .NR.NU.NXM.NRM. NUM. NX A.NRA.NUA. 
1NRI.NP?,NR3,NU1.NU?,NU3,T, 10,  IPRINT.IW, JQ. HEAD. MARK. 
2L0CATF, NULL. INSERT, NFLAG) 

IF(IPPItlT.EQ.6)CALL  DEBUG! 1 1 , 4HRE5P.4HK  ,5,0. IW) 

RETURN 

ENO 


C0N0K329 

C0NDK330 

C0N0K33 1 

C0N0K332 

C0N0K333 

C0N0K334 

C0NDK335 

C0NDK336 

CONOK337 

C0NJK338 

C0NDK339 

C0NDK340 

C0NDK34J 

C0NDK342 

C0NDK343 

C0N0K344 

C0N0K345 

C0NDK346 

C0N0K347 

C0NDK348 

C0NDK349 

CONDK3SO 

C0NDK351 

C0NDK352 

C0NDK353 

C0NDK354 

C0NDK3S5 

C0NDK356 

C0NDK3S7 

C0NDK358 

C0NDK3S9 

CONDK360 

C0NDK361 

C0NDK362 

CON DK 363 

C0NDK364 

C0N0K365 

C0NDK366 

C0NDK367 

C0NDK368 

C0NDK369 

C0N0K370 

C0NDK371 

C0NDK372 

C0NDK373 

C0NDK374 
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iwui^Sl  I  ^rc  .1N*  FiNNS,VNS,DESS,UNITS,N>,o,v^o*OES0»UNIT0. 
anuU^1*^?1  ,U^ITI -NUNS.  VWS.CCSN5. UNITES, NSNO.VNNO.OESNO, 
2UNITN0.NNN1 *VNNI .OfSNI .UNITmI .nxn,nrn.nun.nxm,nrm*num, 

3NCL  •Nr.T  «NCD»N0R  .NPP  «NSR  .MFL  AG  t 

PURPORT  -  TO  RF»D«  MAnIPUcXTE  AND  PRINT  NAME  LIST  TABLE 
ANAL  IP  IS  -  A  F  KONAB  /  J  K  MANES*  -  THF  HON£Y*FLL  INC 
DATE  vPITTEN  -  |97s 

SUBPROGRAMS  CALLED 
eile 

ERom 

SHIFT 

DEnUft 

MPp 


arguments  list 


nxn 

n»n 

NUN 

NC! 

NGT 

NCO 

ND° 

NPr.< 

NSp 

MFi.  AG 


OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

INPUT 


OTHER  PARAMETERS  APE 


NUMRFR  OF  STATES 
NUMBER  OF  OUTPJTS 
NUMBFR  OF  INPUTS 
NO  OF  CONTROL  INPUTS 
NO  OF  GUST  INPUTS 
NO  OF  COMMAND  INPUTS 
NO  Or  uESIGN  0 JT*UTS 
NO  Or  PERFORMANCE  OUTPUTS 
NO  OF  SENSOR  OUTPUTS 
CONTROLS  ENTRY  POINT  IN  THE  SUBROUTINE 
defined  in  calling  program 


|C2Hr?,\'.af!S/  SCOOE,SOES<5,,vsys*HE*0‘20ltNSVS(9».SHEADI».20) 

1 1  ^nt ■  fi ( gc I 

COMMO'I  /INOUT/  IP«  JW. I PRINT . I NSERT (LOCATE .NULL .MARK (201 • JM. JO. J« 

OIMENMON  NNS(NXMS,VNSINXM,?),OESS(NXM.iu».UNITSlNXM." 

DIMENSION  NNO(MRM)  •  VNO  (NMM «  ? )  .QESO  (NRM.  1  0 »  « UNI  TO  ( NRM 1 4 1 
NNI  *VNt  <  NUM  •  ?  I  .DESl  (NUN*  Id  |  *  UN  I T I  ( SUM  •  4 ) 

0 1 MENS  ION  NNNSINXMi  .  VklNS  (NXM  «  ?  )  »OESNS  (NXM«  II))  tllNI  TNS  ( NXM.4 1 
NNN0,NBM' *WNNO(NRM,P),DESNOCNRM.IO».UNITNOJNRM,4» 
DIMENSION  CARO»?0)'”VNNf  ,DES'11  ‘NUM.I0I.UNITNKNUM.4) 

OATA  kONTR t HUSTR t H0MMA/4H0NTR <4HUST  «4H0MMA/ 

OATA  hPHBH.HBBRP.HB0ES/4H(  ,4h  l,4H  0£S/ 

DATA  HBBB8.MCN0B/4H  .4HEND  / 

OATA  HXP« HRPtHUP *  HP/2hX'(  <  2HR  ( .  2HU  ( . 4MI  / 

DATA  HnSDT.H0F,HSSFC/4M0/r)T,4H  OF  .4H/SEC/ 

DATA  *XBH0.H9BRB.HXOOT,MROOT/4HX  ,4HR  .4HXOOT.4HROOT/ 

"EWIN''  JS 

°EAD  THE  OLD  NAME  LIST  TABLF  OFF  THE  OATA  FILE 

and  transfer  into  new  name  list  table 

IFIMFl AG.NE.l IGO  TO  160 

IFUPUINT.EO.SICALL  DEBUG <1,4hMNAm,4HE  ,5.0. IM) 
IF(IPrinT.EO.GIhRItE(I4*1S0» PhEAD 
150  F0RMAT < |X«2c*4) 

CALL  FiLE«UN.LOCATr,PHFAO( 

RfAO (  IN)NX«NRtNU< 
l  INNS (lit (VMS ( l YU) • Jzlf ?) « 

?  IUESSM.UI  •JIl»10)*(UKlTS(IfU)»U*l»4)tI»l.NXl« 

3  INNO III. I VMO (I.J).Ucl.?). 

t  lOESOd.U)  ,J»I.10>.  (UNI  TO  I  I.U).U»1.4>,r«l.NR>, 

5  (NNI(p,(YNI«I.U».U*l,?n 

*  .  <2ES|,I,J**J,>,l<'»*'l>NITI(ItU)»U»|.4l,i«l,NU> 

CALL  SHIFT  <NNS» VNS«f)ESS»UNI TStNNNS*  YNNS*OESNS»UNITNS*NX«NXM» 


MNAME  2 
MNAME  3 
MNAME  4 
MNAME  S 
MNAME  6 
MNAME  7 
MNAME  8 
MNAME  9 
MNAME  10 
MNAME  11 
MNAME  12 
MNAME  13 
MNAME  14 
MNAME  15 
MNAME  16 
MNAME  17 
MNAME  IS 
MNAME  19 
MNAME  20 
MNAME  21 
MNAME  22 
MNAME  23 
MNAME  24 
MNAME  25 
MNAME  26 
MNAME  27 
MNAME  28 
MNAME  29 
MNAME  30 
MNAME  31 
MNAME  32 
MNAME  33 
MNAME  34 
MNAME  35 
MNAME  36 
MNAME  37 
MNAME  38 
MNAME  39 
MNAME  <40 
MNAME  41 
MNAME  42 
MNAME  43 
MNAME  44 
MNAME  95 
MNAME  46 
MNAME  47 
MNAME  48 
MNAME  49 
MNAME  50 
MNAME  51 
MNAME  52 
MNAME  53 
MNAME  54 
MNAME  55 
MNAME  56 
MNAME  57 
MNAME  58 
MNAME  59 
MNAME  60 
MNAME  61 
MNAME  62 
MNAME  63 
MNAME  64 


Figure  42.  Subroutine  MNAME  Program  Listing 


^  ■■■■MUk-  ju*# 


no  non  non  noon 


1  H.  IP  InT  i 

CALL  ^!H  (MNO.  VNn.0rSO.iJUIT0,NNN0.VNVn.0"SN0.UNlTN0*NR.NRM. 
1W<  I°u  TNT  ) 

CALL  ‘hIFT<NNI.VNI,OFSI.UMITI.NNNI.VNNI.DESNI.<INITNI.NU.NUM, 
II W. I PL IMT) 

IFdP^INT.EO.MCALL  OFRUG  <  2.46MNAM  ,  4H£  .5*0«rW) 

R£TUK 

MOO  I F  i  THE  NAME  LIST  TABLE  INPUT  VARIABLES 

IF  TH‘  INPUT  SPACE  IS  EXPANDED 

160  CONTI  UE 

TFfMFi  4G.NF.?)G0  TO  76(., 

IF  <  IPlTNT.EO.MCALL  Ot  hi  io  (  3 , 4hMma*4.  ahE  .5«0»TK) 

IF(NU-',LT.NU)CALL  E«HM(  1  .4HmNaM,4HF  .6«0«IW> 

IF(NU>  .EQ.N'JIRO'  TO  78,' 

NUS=Ni  i 
l«0  CONT  I-  UE 

00  26  1=1. NUS 

I  I  =NU*  I 
NNN  I  ( U )  =  I  I 

ENCODE  ( 4 .  ?  :•>«  V*'N  I  (  I  I  .  1  ))  H’J°  .  I  I 
200  FORMA’ <A7. 121 
VNM  (  [  1 .2)  =hP 
00  22  J=1 .A 

220  UN! TN t  ( 1 I  •  J)  ='I*!TT  I  (  I « J) 

00  ?a  J= 1  . 1  0 
240  OESNI (T I • J) =OEST ( I . J) 

260  CONTINUE 
NU*NU  »NUS 

IFINllT.LT. NUtCALL  eR«m  <  2.4H*iNaM.4hE  •6«0*IW» 

IF (NUu.EQ.NU) GO  TO  280 
GO  TO  180 

MODIFY  THE  NAME  LIST  FOP  OUTPUT  VaWIA81.ES  AND  INPUT  VARIABLES 
280  CONTINUE 

IF  ( IP-1  INT.F0.6*  CALI  DEMUR  (4 ,4-iMnam  ,  4HE  .5.0*Tb> 

I  FLAG  r-T 

J=0  S  IPR  =  .J  *  Jll=3  *  HJM  =  r, 

340  CONTINUE 

PEAO(  IS » 480 1 CADD 

IF ( C A"0 ( I ) •  EO  • uENOo ) RfTURN 

I F  <  (CAPO  (3)  .NE.HONTP)  .and.  (rAPUUl  .NE.HJSTB)  .Amo.  (CARD*  31  ,NE. 
lHOMMAllGO  TO  460 

OBTAI  i  NAME  LIST  OaTA  FOP  S°F.CIFIF0  INPUTS 

360  CONTINUE 

PEAOI  IS. 483) CARD 

IF  (CA-’Oll  )  .EO.HFMOo)  G0  TO  340 

JU=JU.l 

DECODF(4.50f,.CAPO(7)  )ol  ,K,o? 

NNNI  (  Itll  =JU 
NNI  ( JulsJll 

ENCODE(4.20II«VMNI  (  It).  1  >  IHIJP.Jl' 

VNN I  (  111.2)  =HP 

VNI (Ju.l )=VNNI ( JU. ! ) 

VNI  (J‘I.2)=VNNI  (JU.’) 

00  38  .  L  =  1 . 1 0 
380  OESNI (JU.L)=OESI (K.L) 

00  40  L“l*4 

400  UNITNt (JU.L)=UNITI (K»L> 

GO  TO  360 

OBTAI  i  NAME  LIST  DATA  FOR  SPECIFIED  0JT°UTS 


MNAME  6S 
MNAME  66 
MNAME  67 
MNAME  68 
MNAME  69 
MNAME  70 
MNAME  71 
MNAME  72 
MNAME  73 
MNAME  74 
MNAME  75 
MNAME  76 
MNAME  77 
MNAME  7e 
MNAME  79 
MNAME  80 
MNAME  81 
MNAME  82 
MNAME  83 
MNAME  84 
MNAME  85 
MNAME  86 
MNAME  87 
MNAME  88 
MNAME  89 
MNAME  90 
MNAME  91 
MNAME  92 
MNAME  93 
MNAME  94 
MNAME  95 
MNAME  96 
MNAME  97 
MNAME  98 
MNAME  99 
MNAME 100 
MNAME101 
MNAME 102 
MNAME103 
MNAME 1 04 
MNAME105 
MNAME 1 06 
MNAME107 
MNAME108 
MNAME 109 
MNAME 110 
MNAME 111 
MNAME112 
MNAME 113 
MNAME 114 
MNAME11S 
MNAME116 
MNAME117 
MNAME11B 
MNAME 119 
MNAME 120 
MNAME121 
MNAME122 
MNAME123 
MNAME124 
MNAME125 
MNAME 126 
MNAME127 
MNAME128 
MNAME129 
MNAME130 


Figure  42.  Subroutine  MNAME  Program  Listing  (Continued) 
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460 

460 


500 


520 


540 

560 

580 

600 

620 


640 


660 


680 


700 


720 


740 


760 


MNAMF131 

CONTINUE 

MNAME 1 32 

REAOI  IS.480IC4OO 

MNAME133 

FORMAT (20*4) 

MNAME 13h 

IF  (CAt>n(l  »  .EO.^FNOftlf.O  TO  340 

MNAME 135 

J*J»1 

MNAME 136 

oecodf (4«soo«caro(5| i oi tK«n? 

MNAME 137 

FORMAT (Al. 12, *1  I 

MNAME 1 38 

10*0  *  1**0 

MNAME 139 

IF  (CAOfX  1 1  .EO.HO«qa»r,o  TO  5*0 

MNAME 140 

10*0  *  I X« 1 

MNAME 141 

IF(CA°0<I»  .CO.HXRMPlf.f)  TO  5?0 

MNAME142 

10*1  <  1**0 

MNAME 143 

IF<CA°0< l 1 .EO.wRDOTlGO  TO  5*0 

MNAME144 

10*1  <  1**1 

MNAME 145 

IF(CAJD(1>  .EO.MXOonr.0  TO  530 

MNAME 146 

CALL  <rRRM(3,4MM^AM.4Hf  .6, 0,1*1 

MNANE147 

CONTINUE 

MNAME 148 

NNNO  1 .1)  *  J 

MNAME 1 49 

NNO 1  J)  *J 

MNAME1S0 

ENCOOf  (4,200,  VINO  (.1,1)  IHRP,  j 

MNAME 151 

VNNO 1  1,2) *MP 

MNAME 152 

VNO 1  J. | ) * VNNO ( J  •  1  ) 

MNAME 153 

VNOU.2I  *VNNO<  i,2) 

MNAME1S4 

IFllO.EO.DGO  TO  64) 

MNAME 155 

IF 1 I * .FQ, 1 ) 00  TO  5*u 

MNAME 156 

00  54  L*  1 , 1 0 

MNAME157 

OESNOl J«L ) *0FSO (K  «L ) 

MNAME 158 

DO  56-  L*1 ,4 

MNAME 159 

UNITNO(J.L)«UNITOI*,L) 

MNAME 160 

GO  TO  463 

MNAME161 

CONTI-.UE 

MNAME162 

DO  60.  L*l.lw 

MNAME 163 

OESNOl J.LI=OESS<K,L> 

MNAME 164 

00  62  L* 1 < 4 

MNAME 165 

UNITNri|J.L)*UNITSl*.Ll 

MNAME 166 

GO  TO  460 

MNAME 167 

MNAME 168 

FORM  NAME  LIST  DAT*  FOR  OERJVaTIVFS  op 

SPECIFIED  states 

MNAME 169 

OR  OUTPUTS 

MNAME170 

MNAME 171 

continue 

MNAME1 72 

DESNO< J,l)*MOSOT 

MNAME 173 

OESNOT J,?)*MOP 

MNAME 174 

OESNOl  J.3)=HPRRf» 

MNAME 175 

OESNOl J. 10) *MRR«P 

MNAME 176 

unitnotj,4)*hssfc 

MNAME177 

IF(I*.EO.IIGO  TO  7*0 

MNAME178 

DO  66'  L*l ,6 

MNAME 179 

LL*3*l 

MNAME18C 

OESNOl J,LL)*OFSO<M,L) 

MNAME181 

DO  681.  L*1 ,3 

MNAME 182 

UNITNO(J,L)*UNITO(k,L) 

MNAME 183 

GO  TO  463 

MNAME 184 

CONTINUE 

MNAME 185 

00  72  L*1 ,6 

MNAME186 

LL«3»I 

MNAME187 

OESNOl  J,LL)*OESSO<iL) 

MNAME 188 

00  74.  L*l .3 

MNAME189 

UNITN'T|J,L)*UNITS(M.L) 

MNAME 1 90 

GO  TO  466 

MNAME191 

CONTINUE 

MNAME 192 

IF  t IPviNT.EQ.4l CALL  0F9UGt5.4HMNAM.4HE 

,5,0, IM) 

MNAME 193 

MNAME194 

WRITE  The  new  name  list  TAHlE  ON  The  DATA  file 

MNAME195 

MNAME 196 

Figure  42.  Subruotine  MNAME  Program  Listing  (Continued) 
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c 

c 


rI.,.Mrr?.r’;NE*3,CAU  ERRm ia.aumnAm, ah£  ,6.0.  I-, 

CALL  f  ILE  (  JN.  INSEPr.HFAD)  0  * 1 "  * 

W°ITF  I  JN>NXN.N«N*NllN, 

'  INNnSU),(wnnsiI.J>.Js|.2), 

l  <NNNO(  t  !  .*  (i  nno  !;!j!  ' 1  • Jl  •  J*»  •*>  ’  I*i  .NKNI  , 

call 


P»INT  NAME  LIST  data 

IF  < IP  j  TNT ,LT.? I  RETURN 
CALL  -"°«(M£AO.  !w» 

WRITE  (  IX,7G5)NXN.NON«NUN 
T65  FORMA  r (// « I  X  ,  |  AhnUMHEP  OF  STATES  i  ts  y  y 

1 1 0HNU  'R£W  OF  OUTPUTS-  15  //  i!  ,D  ?,//'1*’ 

K«*ITE(i5,77c»  UTS--l?’"’l**18HN0*3tr*  OF  INPUTS  »,I2,//, 

•‘*-e  l's'  ••••/. 

ocsc.pt, on  . 


PPINT  NAME  LIST  OATA  FOR  STaTfS 


WRITE  (  Hi  790) 

790  FORMAT (/. U. 6HSTATE  ,/) 

. - 

IF (NDJ.EO.iOGO  TO  oc.0 


POINT  NAME  LIST  DATA  FOP  DESIGN  Outputs 


WRITE ( Itf.dlOl 

810  u2!frr  T  (/'  **’  1  3HOESION  OUTPUT./) 

«>TC, jj.j  ll?l>(OEM0,IiJ|(J 

820  CONTI-  U£  «*^ITNOCI,J»,U,I,H,,,,lMM| 

NDPRa-;DR»NPR 
IFfNPJ.EO. 0)F,0  TO  K40 


*  P°INT  N*HE  UST  04TA  ro»  performance  outputs 

WRITE* I*»d3i)> 

fl30  NO°RpM;:NORlr,flHPE,,rOSMANCe  nUTP“T^> 

WRITE  ( Irt.dGO)  UlNNO  ( I) .  (UMwn  ,  i  . 

IF (NSj.eQ.OIGO  TO  AGO 

PRINT  NAME  list  data  for  SEnSOR  out»uts 
WRITE ( IW.8S3) 

850  FORMAT (/, lx, 1 ThSENSOR  OUTPUT,/) 

NOPRP ) rNOPP, J 

WRJTE(Iw,OoO) (NNNO( I) , (VNNO(I.J) .  ■ 

I  (DNITmO( 1  it  1  1  _  1  •  > • (OtSNO 

0*0  CONTINUE  «''NITN0(I,J»,j,i,m).I,N0PRPI,A|RN» 
IFINO  .EO.Otr.O  TO  AflO 


PRINT  NAME  LIST  DATA  FOR  CONTROL  INPUTS 
WRITE  f  l*.d7«>> 

Figure  42.  Subroutine  MNAME  Program  Listing  (Continued) 


MNAME197 

MNAME19B 

MNAHE199 

PNANE200 

MNAMf ?0l 

NNAME202 

HNAME203 

HNANE204 

MNAME?05 

NNAME206 

NNAME207 

NNAME208 

NNAME209 

MNAME210 

HNAME211 

"NAME212 

MNAME21 3 

MNAME2U 

HNAME215 

MNAME21 6 

HNAME217 

HNAME218 

MNAME2I9 

MNAME220 

HNAME221 

NNAHE222 

MNAME223 

MNAME224 

MNANE225 

MNAME226 

MNAME227 

MNANE22H 

MNANE229 

MNAME230 

HNAME231 

MNAME232 

MNAME233 

HNAME234 

NNAME235 

HNAME236 

HNAME237 

MNAME238 

NNAME239 

NNAME240 

HNAME24I 

MNAME242 

NNAME243 

MNAME244 

MNAME245 

HNAME246 

MNAME247 

MNAME248 

MNAME249 

MNAME250 

MNAME2S1 

"NAWE252 

MNAME253 

NNAME254 

HNAME255 

"NAME256 

**A*E257 

MNAME2S8 

KNAWE259 

HNAME260 

MNAME281 

MNAME262 


« 


160 


flTfl  fORMA r (/, lx, 1 3-TONTPOl  IN°UT,/>  MNAME363 

WRITE  '  IW.rtili)  (rJNNI  (  I )  .  (VNNI  (I .  Jl .  J*1 .  ?) .  (OESNI  ( I  ,  J)  «  J*1 *  10)  •  MNAME364 

1  (UNITNI  <  I  «  Jl  »  J=l  ,4)  «  I  »1  *VCL>  MNAME265 


880  CONTINUE 

NCG*NOL*NGT 
If  (NGT.EQ.tHGO  TO  POO 

PRINT  NAME  LIST  UAtA  FOR  GUST  INPUTS 

WRITE ( Iw.890) 

890  fOPMAM/.U.IOHGUST  INPUT, /) 

NCLP1-NCL*1 

WRITE  f IW«n«0» (NNNI (II, (VNNI ( l , Jl , J*1 , *1 , (OESNI ( I , Jl » J*1 , 1 0  I . 

I  (UNITnI (  I , Jl , J*l,4) .I«MCLP1*NCG1 

900  CONTINUE 

If <NC".EQ.VlGO  TO  9*0 

PRINT  NAME  LIST  OATA  fOR  COMMAND  INPUTS 
WRITE! IW, 9101 

910  FORMAT (  /  « l  X  »  1 3MCOMMANO  INPUT, /I 
NCGP1  *NCG*  I 

WRITE ( I«*80v> (NNMI (II, (VNNI ( I , Jl » J«1 , 2 I , (OESNI ( I • Jl * J* I • l 0 1 « 
1  <IINITnI(I«JI#J*».4I *I«NCGP»*NUNI 

930  CONTI-UE 

IF ( IPRlNT.Ed.felCALL  DfPUG(6.4hMnA-.4he  *5.0«|WI 
retur- 

940  CONTINUE 

PRINT  NAME  LIST  DATA  FOR  OUTPUTS 
WRITE! IW, 9501 

950  FORMAT  (/« 1X,6hOUTPuT */! 

WRITE' I W, 8001 (MNNOl 1 1 , (VNNO! 1, Jl ,.1*1,3) « (OESNOl I, J) » J«1 « 101  * 
1  (UNIT'-lOl  I  ,  J)  ,  J*l,4).  I*1,V«N> 

PRINT  NAME  LIST  OATA  FOP  IN°UTS 

WR I TE  (  I W , 9E>0 1 

960  FORMAT ( /, 1  A ,5HINPUT ,/ I 

WRITE ( !W»800! (NNNI ( I) , ( VNNI ( I , J) * J*1 , 3» • IOESNI 1 1 , J» » J*1 • 10 1 » 
1  (UNITNI ( 1 , J) • J*l,4) • 1*1, NUN) 

IF(IPRINT.E0.6)CALL  0CRUG(7,4mMN*M*4mE  •5«0»!W> 

RETUR-j 

FNO 


MNAME366 

MNAME367 

MNAME368 

MNAME369 

MNAME370 

MNAME27 1 

MNAME373 

MNAME373 

MNAME374 

MNAME375 

MNAME376 

MNAME377 

MNAME378 

MNAME379 

MNAME380 

MNAME381 

MNAME282 

MNAME383 

MNAME304 

MNAME3S5 

MNAME386 

MNAME287 

MNAME288 

MNAME389 

MNAME390 

MNAME391 

MNAME293 

MNAME293 

MNAME394 

MNAME395 

MNAME396 

MNAME397 

MNAME398 

MNAME399 

MNAME300 

MNAME301 

MNAME302 

MNAME303 

MNAME304 

MNAME305 

MNAME306 

MNAME307 


Figure  42.  Subroutine  MNAME  Program  Listing  (Concluded) 
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Figure  43.  Subroutine  IMRATE  Flow  Chart 
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SUBROUTINE  IMRATE  (CM »OM .Cw . DW .DUMMY  1 . DUMMV2.NX , NR .NU. 
1NXM.NRM.NUM.NXA.NRA.NUA. IW. IPRINT.N0MU.NDM12,n0H?1,N0H?2> 

c 

C  PURPOSE  -  TO  OBTAIN  IMPLICIT  MODEL  ERROR  RATES 

c  and  truncate  the  implicit  model 

C  ANAL  I  SIS  -  A  r  KONAR  /  J  K  MAHESM  -  THE  HONETMELL  INC 


c 

OATE  WRITTEN 

-  197S 

V 

c 

SUBPROGRAMS 

called 

c 

MPRS 

c 

r 

TDINVR 

V 

c 

ARGUMENTS  list 

c 

NX 

INPUT 

number  of  states 

c 

NR 

INPUT 

number  of  outputs 

c 

NU 

INPUT 

NUMBFR  OF  INPUTS 

c 

NX  A 

INPUT 

NO  OF  STATES  WITHOUT  IMPLICIT  MODEL 

c 

NR  A 

INPUT 

NO  OF  OUTPUTS  WITHOUT  IMPLICIT  MOOEL 

c 

NUA 

INPUT 

NO  OF  INPUTS  WITHOUT  IMPLICIT  MODEL 

c 

IW 

INPUT 

file  no  for  line  printer 

c 

IPRIMT 

INPUT 

print  control  flag 

C  OTHER  PARAMETERS  ARE  OEEINED  IN  CALLING  PROGRAM 
C 

DIMENSION  CM (NRM.NXM > .DM 1NRM.NUMI «CW  ( NRM.NXM) .OWINRM.NUM) 

0 IMENS ION  DUMMY 1 (NOM 1 1 .NON 1  >  >  . DUMMY 2 ( NOM2 1 • NDM?2 > 

C 

C  COMPUTE  STEADY  STATE  VALUE  0 F  IMPLICIT  MODEL  STATES 

c  for  zero  model  error 
c 

NXR-NX-NXA 
DO  160  I»1 .NXR 
DO  123  J" 1 .NXR 
JJ*NXA*J 

120  DUMMY | < I »  J ) «CW  < I «  J J  * 

DO  1*0  J-l.NXA 
JJ«NXR» J 

140  DUMMY! (I.JJ)-CW(I.J) 

DO  160  J*1«NU 
JJaNX.J 

160  DUMMY l ( I . J J I *DU !  I  »  J ) 

NOR -NXR 

NDCaNXR.NXA.NU 

irilPRINT.LT.6IG0  TO  1?0 

CALL  MPRSICW. NRM.NXM. NXR. NX, 0.0.4HCW  > 

CALL  MPRS10M.NRM.NUM»NXR.NU,0.0.4hDW  ) 

CALL  MPRSIOUMMY1.NOM1I.NOM1?. NOR. NOC.O.O.AHDMY! ) 

170  CONTINUE 

CALL  TDINVR ( I SOL . I OSOL . NOR . -NDC . DUMMY I  *  MOM 1 1 .0UMMY2 *DET > 
irnisoL.EQ.n.ANO.dosoL.Eo.inGO  to  ?*o 
WRITE! I W. 180) I SOL . IDSOL 

1B0  FORMAT ( 1H1.//. IX. 1 AHTOINVR  FAILURE. 6M  IS0La.12.7H  IDSOL*. 12) 
WRITE ! IW.200) 

200  FORMAT!//. IX. 43HSTEA0Y  STATE  VALUE  OF  MODEL  STATE  CANNOT  BE. 
1IX.23HCOMPUTEO  FOR  ZERO  ERROR) 

WRITE ( IM.220) 

220  FORMAT !//.lX.26HM00EL  STATES  ARE  TRUNCATED) 

C 

C  COMPUTE  IMPLICIT  MODEL  ERROR  RATES 
C 

240  CONTINUE 

00  260  1*1. NR 
00  260  J-l.NX 
*60  DUMMY? ! I  * J) «CM ( I  *  J> 

Figure  44.  Subroutine  IMRATE  Program  Listing 
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IMRATE  2 
IMRATE  3 
IMRATE  4 
IMRATE  5 
IMRATE  6 
IMRATE  7 
IMRATE  8 
IMRATE  9 
I MRATE 1 0 
IMRATE11 
IMRATE 1 2 
IMRATE13 
IMRATE  14 
IMRATE1S 
IMRATE16 
IMRATE17 
IMRATE1S 
IMRATE1R 
IMRATE20 
IMRATE21 
IMRATE22 
IMRATE23 
IMRATE24 
IMRATE25 
IMRATE26 
IMRATE27 
IMRATE28 
IMRATE29 
IMRATE30 
IMRATE31 
IMRATE32 
IMRATE33 
IMRATE34 
IMRATE35 
IMRATE36 
IMRATE37 
IMRATE3B 
IMRATE39 
IMRATE40 
IMRATE41 
1MRATE42 
IMRATE43 
IMRATE44 
IMRATE45 
IMRATE46 
IMRATE47 
IMRATE48 
IMRATE49 
IMRATESO 
IMRATESl 
IMRATES2 
IMRATE53 
IMRATES4 
IMRATE55 
IMRATES6 
IMRATE57 
IMRATE58 
IMRATE59 
IMRATE60 
IMRATE61 
IMRATE62 
IMRATE63 
IMRATE64 


2P0 


300 


320 


DO  28-  1=1. NR 

IMRATE6S 

DO  28  i  J= 1 . NX  A 

IHRATE66 

JJ*NXP.J 

INRATE67 

00  28  .  K=1 .NXR 

1NRATE68 

KK=NXx«K 

IMRATE69 

CM ( 1 •  1) =CM( I . J) -DUMMY? < I.KK |*0UMRY1 

1MRATE70 

DO  30 0  1=1. MR 

IRRATE71 

DO  30''  J=1 «NU 

INRATE72 

JJ«NX*J 

IHRATE73 

00  30«  K=1.NXR 

INRATE74 

KK=NXi»K 

P4RATE75 

DH ( | *  l)=DM( I. J)-DOMHV?( I.KK)»DUMMY1 (K. JJ> 

IMRATE76 

NX«NX» 

INRATE77 

ir(IPPINT.LT.6»r,0  TO  320 

IMRATE78 

CALL  mPRS(CM.NRM.NXM.NR<NXA.O.O.*HC«  I 

IRRATE79 

CALL  mPRS(DM.NRM.NUM.NR.NU.6.0.4HOM  1 

IHRATE80 

CALL  mPRS(DUMMy1,NDM11.NOH1?.NOP.NOC.O.O.AHDMY| ) 

IMRATE81 

CONTINUE 

IHRATE82 

return 

INRATE83 

END 

IHRATE84 

Figure  44.  Subroutine  IMRATE  Program  Listing  (Concluded) 


164 


-  ..... 


...... 


SUBROUTINE 

OIFFK  < A.D.C. 

n.  DUMMY  1  .OUMMY  2.  NX.  NR.  Nil. 

DIFFK 

2 

1NXM.NPM.NUM.NRS. IRS. 

ID. 

I*. IoRiNT.NOMll,NDM12.NnM21,NDM22> 

OIFFK 

3 

c 

OIFFK 

4 

c 

PURPOcE  “ 

TO  OBTAIN 

DERIVATIVES  or  RESPONSES 

OIFFK 

5 

c 

ANAL  I -IS  - 

A  F  KONAP 

/ 

J  K  MAHESH  -  TMF  HONEYWELL  INC 

OIFFK 

6 

c 

DATE  vPITTEN  -  t97S 

DIFFK 

7 

c 

DIFFK 

8 

c 

ARGUMENTS 

l  1ST 

OIFFK 

9 

c 

NX 

INPUT 

NUMBER  OF  STATES 

OIFFK 

10 

c 

NR 

INPUT 

NUMFirR  OF  OUTPUTS 

OIFFK 

11 

c 

NU 

INPUT 

NUMRrR  OF  IN®UTS 

OIFFK 

12 

c 

NRs 

INPUT 

NO  Or  RESPONSES  TO  BE  DIFFERENT I ATEO 

OIFFK 

13 

c 

10 

INPUT 

CONTROLS  ENTRY  POINT  IN  THE  SUBROUTINE 

DIFFK 

14 

c 

lw 

FILE  NO  FOP  LINE  PRINTER 

DIFFK 

15 

c 

IRuINT 

PRINT  CONTROL  flag 

OIFFK 

16 

OTHER  PARAMETERS  ape  DEFINED  in  CALL  I  MG  PROGRAM 

DIMENSION  A (NXM ,NXM ) . « I NXM . NUM I . C ( NRM .NXM I . D I NPM . MUM * 
DIMENSION  IRS(NRM) , DUMMY | (NDM1 l.NDMl?) .OUMMY2 (NDM21 .N0M22) 
NUS«NU 

ifiio.gt.iigo  to  ho 

OBTAI'I  FIRST  DERIVATIVES  ONLY 

FORM  rS  MATRIX 

00  10  1*1. NPS 
1 1* IRs ( 1 1 
DO  10  J* I »NX 
10  DUMMY | <I.J)*C(II»J> 

COMPUTE  CS*A  MATRIX 

DO  30  1*1. NRS 
DO  30  J«l.NX 
DUMMY  3 ( I • J) *0.0 
DO  30  K>1,NX 

30  OUMMY  R  ( 1 1 J )  *OllMM  Y2  ( I .  J I  • OUMmy  j  <I,M»A<*.J> 

COMPUTE  NEW  c  matrix 

DO  SO  1*1 «NRS 
I  I*NH»  I 
00  50  J*1 *NX 
50  C  < I  I «  ll*OUMMY2<I.J> 

FORM  CS#B  MATRIX 

DO  60  1*1. NRS 
00  60  J*1 »NU 
OUMMY>(ItJ)*0.O 
00  60  K*1 «NX 

60  0UMMY>U*JI*0UMMY2«I»J)»0UMmYJ ( 1  »K  I #RIK* Jl 

FORM  DS  MATRIX 

00  70  1*1 »NRS 
II*lRMll 
00  70  J*1 »NU 
70  OUMMY | ( 1 « J) *0 ( 1 1 1  J) 

COMPUTE  NEW  D  MATRIX 


OIFFK  17 
DIFFK  IB 
OIFFK  19 
DIFFK  20 
DIFFK  21 
OIFFK  22 
OIFFK  23 
OIFFK  24 
OIFFK  25 
DIFFK  26 
OIFFK  27 
OIFFK  28 
DIFFK  29 
DIFFK  30 
OIFFK  31 
DIFFK  32 
OIFFK  33 
DIFFK  34 
OIFFK  35 
OIFFK  36 
DIFFK  37 
OIFFK  38 
DIFFK  39 
DIFFK  40 
OIFFK  41 
DIFFK  42 
OIFFK  43 
DIFFK  44 
OIFFK  45 
OIFFK  46 
OIFFK  47 
DIFFK  48 
OIFFK  49 
DIFFK  50 
DIFFK  51 
DIFFK  52 
OIFFK  53 
OIFFK  54 
OIFFK  55 
OIFFK  56 
DIFFK  57 
OIFFK  58 
OIFFK  59 
OIFFK  60 
OIFFK  61 
DIFFK  62 
OIFFK  63 
OIFFK  64 


Figure  46.  Subroutine  DIFFK  Program  Listing 


00  AO  1*1* NOS 

DIFFK 

65 

00  A0  J*  1  *NU 

DIFFK 

66 

I  I*NR.  1 

DIFFK 

67 

AO 

0(11*  1) *DUMMY?< I . Jt 

DIFFK 

68 

c 

DIFFK 

69 

c 

CHECK  IF  OS  MATRIX  IS  NULL 

DIFFK 

70 

c 

DIFFK 

71 

00  9®  1*1, NRS 

DIFFK 

72 

00  90  J* 1  *  NRS 

OIFFK 

73 

IF(0U>tMYl  (I.Jt  .NE.'l.OX'.O  TO  l  >0 

DIFFK 

74 

90 

CONTINUE 

DIFFK 

75 

nr*nr.nrs 

DIFFK 

76 

RETURi 

OIFFK 

77 

c 

OIFFK 

76 

c 

PRINT  A  MESSAGE  THAT  THE  INPUT  RATES 

ARE  NECESSARY  FOR 

DIFFK 

79 

c 

correctly  obtaining  the  derivatives 

OF  THE  RESPONSES 

DIFFK 

80 

c 

DIFFK 

81 

100 

CONTINUE 

DIFFK 

82 

WRITE ( IW* 120) 

DIFFK 

83 

120 

F0RMAT(1H1*//*1X.ASH««*  THE  INPUT  RATES  SHOULD  BE  INClUOEO 

IN  TAKIOIFFK 

84 

1NG  THf  DERIVATIVES  OE  THE  RESPONSES 

•••*//» 

DIFFK 

85 

RETURN 

OIFFK 

86 

140 

CONTINUE 

DIFFK 

87 

c 

DIFFK 

88 

c 

OBTAIN  FIRST  ANO  SECOND  DERIVATIVES 

DIFFK 

89 

c 

OIFFK 

90 

WRITE ( IW* 160) 

OIFFK 

91 

160 

FORMAT (//* 1X*55H*#*  ThE  SECOND  DERIVATIVE  OPTION  IS  NOT  IMPLEMENTEDIFFK 

92 

10  ••*,//) 

DIFFK 

93 

RETURN 

DIFFK 

94 

END 

DIFFK 

95 

Figure  46.  Subroutine  DIFFK  Program  Listing  (Concluded) 


Figure  47.  Subroutine  REDUCE  Flow  Chart 
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SUBROUTINE  REOUCE (A. 

B. C.O.DIMMYl. DUMMY?. ES.ER. 

1NX.NR.NU.NXR 

,  NPR. NRT. NXM.NRM.NUM.T, IV, I  PRINT. 

#• 

2NOMII.NDM12. 

N0M2I.NDM??! 

c 

c 

PURPOSE  *  TO 

REOUCE 

ThE  ORDrR  OF  STATE  SPACE  DATA 

c 

ANAL  ISIS  -  A 

F  KONAR 

/  J  K  mAhESK  -  THE  HONEYWELL  INC 

c 

OATE  BITTEN 

-  197s 

C 

c 

SUBPROGRAMS 

CALLED 

c 

TO'NVR 

c 

c 

MPPS 

L 

c 

ARGUMfmT  LIST 

c 

NX 

INPUT 

NUM0.-R  OF  STATES 

c 

NR 

INPUT 

NUMGEN  OF  OUTPJTS 

c 

NU 

INPUT 

NUMBER  OF  INPUTS 

c 

NXP 

INPUT 

NO  Or  STATES  TO  BE  RESIOUALIZEO 

c 

NRo 

INPUT 

NO  OF  OUTPUTS  TO  BE  RESIOUALIZEO 

c 

NRT 

INPUT 

NO  Or  OUTPUTS  TO  BE  TRUNCATED 

c 

T 

INPUT 

sample  timf 

c 

IV 

INPUT 

FILE  NO  FOR  LINE  PRINTER 

c 

IPoiNT 

INPUT 

PRINT  CONTROL  FLAG 

c  OTHER  PARAMETERS  ARE  DEFINED  IN  CALLING  PROGRAM 

C 

DIMENSION  A INXM.NXM) .R(NXM.NUM) .C(NRM.NXM) .CMNRM.NUM) 
DIMENSION  OUMMY  1  (NOM1 1  «NQM  1  ?)  .DUMMY2 INQM21 »NDM?2) 

DIMENSION  ESINXM.NUH) •fR(NRM«NUM> 

NXN*NX«NXR 

NRN*NRT*NRR 

NUN«N'I 

c 

C  COMPUTE  SS  VALUE  Or  STATE  AnO  OUTPUT  FOR  ORIGINAL  SYSTEM 
C 

IF(IPPINT.LT.S»GO  TO  260 
DO  14'  I-l.NX 
DO  14;  J*I,NX 
140  DUMMY  1 (I.J)-A(i.J) 

00  1ft':  1*1. NX 
DO  16.',  J*l  »NU 
JJ*NX» J 

160  DUMMY) (I«JJ)»fl(J.Jt 
NOR»N< 

NOC*Ny  *NU 

IF ( IPPINT.GE.61CALL  MPRS (DUMMY  1 »NDM|1 tNOMl 2.N0R.N0C.T .4H0MY1 > 
CALL  TOINVR ( I SOL . I DSOL  *NDR * -NDC » DUMMY  I . NDM1 I .DUMMY2.DET > 

IF(( ISOL.EO.l * .AND. I IDS0L.E0.1 MGO  TO  200 
WRITE U*. 180) ISOL.TOSOL 

ISO  FORMAT (/» lXt 1 4HT0INVR  FAILURE. 6H  IS0L*.I2.7H  IDS0L*»I2) 

WRITE (IV. 190) 

190  FORMAT (/* IX.40MRES IOUAL I Z AT ION  ERROR  CANNOT  BE  COMPUTED. 
1/.IX.T0MS1NCE  SS  VALUES  DOES  NOT  EXIST) 

JPRINT»2 
GO  TO  260 
200  CONTINUE 

JPRINT«IPRINT 
DO  22':  1*1  .NX 
00  22;  J«1.NU 
J J«NX ♦ J 

220  ESII*  f)*-DUMMYHI.jJ) 

DO  24 'i  1*1.  NR 
00  24  ,  J*1.NU 
ER <  I .  i)*OU.J> 

DO  24'  K-l.NX 


REDUCE  2 

REDUCE  3 

REDUCE  A 

REDUCE  5 

REDUCE  6 

REDUCE  7 

REDUCE  B 

REOUCE  9 

REDUCE 10 

REDUCE 11 

REDUCE 12 

REDUCE 13 

REOUCE U 

REDUCE 15 

REOUCE 16 

REOUCE 17 

REDUCE 18 

REDUCE 19 

REDUCE20 

RE0UCE21 

RE0UCE22 

RE0UCE23 

RE0UCE24 

REDUCE 25 

REDUCE26 

REDUCE27 

REDUCE28 

REDUCE29 

REDUCE30 

REDUCE31 

REDUCE32 

REDUCE33 

REDUCE34 

REDUCE3S 

REDUCE36 

REDUCE37 

REDUCE 38 

REDUCE 39 

<tEDUCE*0 

REOUCE A 1 

REDUCE42 

REDUCE A 3 

RE0UCEA4 

REDUCEA5 

REDUCEA6 

REDUCEA7 

RE0UCEA8 

RE0UCEA9 

REDUCE50 

REDUCES 1 

RE0UCE52 

RE0UCE53 

RE0UCES4 

RE0UCE55 

RE0UCES6 

RE0UCE57 

REDUCE58 

REDUCE59 

REOUCE60 

REDUCE* 1 

RE0UCE62 

REDUCE*) 

RE0UCE*4 


Figure  48.  Subroutine  REDUCE  Program  Listing 


nnn  r>  r>r>n  r>r>n 


343 

ER<|.  n  =ER  <  I  « J) »C ( I ,K)*ES(K.J) 

REDUCE65 

IF  ( IPSINT.0E.6ICALL  MORSES. NXM.NUM, NX, NU.T.4HFS  I 

REDUCE66 

IF ( IPS INT.GF.6ICALL  MPR$(£P«NPM»NllM«NR»NU,T  ,  4HFP  ) 

REDUCE67 

360 

CONTINUE 

REDUCE68 

RE0UCE60 

QUADRUPLE  DATA  IS  oEOUCED  Rv  RES  I  DUAL  I ? AT  ION 

REDUCE70 

REDUCE71 

00  28'  1*1. NXR 

RE0UCE72 

I  I*NX‘|«I 

REOUCET3 

DO  ?8(  J*1.NXR 

REDUCE74 

JJ»NXN*J 

REDUCE75 

380 

DUMMY  |  (I.J)*AUI«J  0 

REOUCE76 

00  30  1*1. NXR 

REOUCE77 

I I*NXm« I 

REOUCE78 

00  30  J*1.NXN 

REDUCE7R 

JJ*NXS.J 

REDUCE80 

300 

DUMMYI  ( 1 . J J )  *  A  I  I  I ,  J ) 

REDUCE81 

00  32  I*|  »NXP 

REDUCE82 

II  ■NX*!.  I 

NEOUCEB3 

00  32'  J*1,N'»N 

REDUCE84 

JJ*NXP*NXN«J 

RE0UCE85 

320 

DUMMYI ( I . JJ) *R< I I . J) 

RE0UCE86 

NDR»N«R 

REDUCE87 

NDC*NYR*NXN*NUN 

RE0UCE88 

IF(IPPINT.GE.6ICALL  morsioU^My1,NDM11.NOM12*NOR.NDC.T.4,mDMY1 I 

RE0UCE8P 

CALL  TOINWRI  ISOL.IdS0L*NDR»-NDC.0UMMY1.NDM1I.DUMMY2.0ET1 

REDUCE90 

IF ( (ISOL.EQ.il .ANO. < IDSOL.EQ. 1 ) )G0  TO  360 

RE0UCE01 

REDUCE02 

RESIO'IALIZATION  IS  NOT  POSSIBLE  and  so 

RE0UCE93 

QUADRUPLE  DATA  IS  PEDUCEO  By  TRUNCATION 

REDUCEO* 

REDUCE95 

WRITEllW.160) I SOL. ID SOL 

HEDUCE96 

WRITE  < IN. 340) 

REDUCE07 

340 

FORMAT (/.IX, 47MCANN0T  RE  RESlOUALIZED  SINCE  SS  VALUE  OF  STATES. 

REDUCE08 

1/.1X.  IlHBEING  ELIMINATED  DOFS  NOT  EXIST) 

RE0UCE90 

WRITEHW.350) 

REOUCIOO 

3S0 

FORMAT!/, IX. 31MQ  OATA  IS  REDUCEO  RV  TRUNCATION) 

HEOUCIO 1 

NX*NXN 

REDUC102 

NRaNRN 

REDUC103 

NU*NUf| 

REDUC104 

return 

REDUC105 

REDUC106 

COMPUTE  RESlOUALIZED  QUAOww  -Lc' 

REOUC107 

REDUC108 

360 

CONTINUE 

REOUCIOO 

00  38i  1*1. NX 

HEDUC110 

DO  380  J*1.NX 

REDUC1 1 1 

380 

DUMMY'*  (  I  ,  J )  «A  ( I ,  J ) 

REDUC1 12 

DO  400  1*1.  NXN 

RE0UC1 1 3 

00  400  J*1.NXN 

RE0UC114 

JJaNXR.J 

REDUC1 15 

00  406  K-l.NXR 

RE0UC1 16 

kk*nxn«k 

REDUC117 

400 

A! I , J) *A( I  * J)-0UMMV2( I »KK)*DUMMV1 !K»JJ) 

REDUC1 18 

00  42n  1*1. NXN 

REDUCI10 

00  42o  J*1 .NUN 

REOUC120 

JJ«NXP*NXN*J 

RE0UC131 

00  42o  K-l.NXR 

RE0UCI22 

KKaNXN.K 

RE0UC123 

420 

B(I.J)*B<I.J)  -DUMMY?  1 1  »KK )  • DUMMY  1  IK.JJ) 

RE0UC124 

00  44o  1*1. NR 

REDUC125 

00  44 n  J*1.NX 

RE0UC126 

440 

DUMMY* ( I.J)*C!I»J) 

RE0UC127 

00  460  1*1 »NRR 

RE0UC128 

00  460  J* 1 .NXN 

REDUC129 

.I.JaNXP*  J 

REDUC130 

Figure  48.  Subroutine  REDUCE  Program  Listing  (Continued) 
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00  46<*  K«1.NXR 
KK*NXn«K 

460  C  ( I  «  J I *C  *  1 *  J) “DUNN V2 ( I «  KK ) *OUMMY 1 (K.JJ) 

00  480  1*1. NRR 
00  480  J-l.NUN 
JJ-NXR.NXN.J 
00  480  K*l.NXR 
KK*NXN*K 

488  0 1 1 < Jl *0  1 1 • J) “0UMMV2 ( I «KK ) *0UMMY1 (K.JJ) 

C 

C  CONFUTE  SS  V*U>£  Or  STATE  ANO  OUTPUT  TOR  REDUCED  SYSTEM 

C  ANO  SUBTRACT  IT  PROM  SS  VALUE  OBTAINED  EARLIER  TO  GET 

C  THE  ERROR  OP  RE  SI  Oil  AL I Z  AT  ION 

C 

IPCJRRINT.LT. 3)G0  TO  600 
00  98ft  1*1 • NXN 
00  580  J* I f NXN 
988  DUMMY ) ( |  <  J )  *  A  1 1  •  J ) 

00  92C  1*1 .NXN 
00  S2o  J* 1 .NUN 
JJ*NXN* J 

928  DUMMY  I < I » JJ) *B  < I « J l 
NOR -NXN 
NOC*NxN«NUN 

IP  I (PRINT. OE. 6) CALL  MPRS (OUmMy I .NDM1 1 .N0M12.NDR.NDC.T.4HDMV1  > 
CALL  TDINVRCISOL.IOSOL. NORt-NnC«DUMMYI.NOMll. DUMMY?. OETI 
IP  ( ( ISOL.GT •  1 )  .OR.  <  lOSOi.  .GT .  1 )  I  GO  TO  620 
C 

C  COMPUTE  RESIOUALIZATION  error 

c 

00  94(1  1*1, NXN 
00  940  J*I .NUN 
JJ*NXN»J 

948  ES ( I . J> *ES ( I . J) .DUMMY  1 (I.JJ) 

00  960>  1*1. NRN 
00  5*0  J*1 .NUN 
ER 1 1 . J> »-0 ( I . J) »ER(  I  »  J) 

JJ*NXN*J 
00  5*0  Kal.NXN 

5*8  ERII.J>*ER(I.J)»C(I,K>*DUMNy1 (K.JJ) 

WRITE < IN. 588) 

588  PORMAT  C/. IX.48HRESI0UAL IZAT ION  ERROR  MATRICES  ES  ANO  ER./) 
CALC  MPRSICS.NXM.NUM.NXN.NUN.T.4HCS  ) 

CALL  mPRSCER.NRM.NUM.NRN.NUN.T .4H£R  > 

*88  CONTINUE 
NX-NXN 

nr-nrn 
NU«NUN 
RETURN 
*28  CONTINUE 
STOP  0838 
ENO 


REDUCI31 
RE0UCI3? 
RE0UCI33 
RE0UC134 
RE0UC135 
REOUC 1 36 
REDUC1 37 
REOUC 1 38 
REOUC 13R 
REDUC140 
REOUC 141 
REOUC 14? 
REDUC143 
REOUC 144 
RE0UC145 
REOUC 146 
REOUC 147 
RE0UC148 
REDUC149 
REOUC 150 
REDUC151 
REDUC15? 
REOUC 153 
REOUC 154 
REOUC 155 
REOUC 156 
REDUC157 
RE0UC158 
REOUC 159 
REOUC160 
REOUC 161 
REOUC 16? 
REDUC163 
REDUC164 
REDUC165 
REOUC 166 
REOUC 167 
REDUC lu8 
REDUC1L9 
REDUC 17C 
RE0UC171 
REOUC 172 
REOUC 173 
REOUC 174 
REOUC 175 
REDUC 176 
RE0UC177 
REOUC 178 
REDUC 179 
REOUC 180 
REDUC 181 
REOUC 182 


Figure  48.  Subroutine  REDUCE  Program  Listing  (Concluded) 
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Enter 


Compute  Scaled 
State  Space 
Quadruple  Data 
AS=S  AS  -1 
BS=S*BSj,-l 

cs=s^csx-i 
ds=s  ns..-1 


Return 


Figure  49.  Subroutine  SCAL  Flow  Chart 


SJRRO  iTINE  SCAL<A,«.C,n.SCFS.9CF0.SCFI. 

SCAL 

2 

1  NXN  .  N«N  •  NUN  .  NX«  .  NRk1  .  fi<  'M  t 

SCAL 

3 

c 

SCAL 

4 

c 

PliPPO  T  -  TO  CAMPIJTF  SCALED  QUAORUPLES 

SCAL 

5 

c 

AN«LIMS  -  A  F  *ON»R  /  J  K  y a f S H  -  T HE  1 

iONFYWELL 

INC 

SCAL 

6 

c 

DATE  R1TTEN  -  1 97f 

SCAL 

7 

c 

SCAL 

8 

c 

APDUMfmT  LIST 

SCAL 

9 

c 

SCFS  T'iDiiT  SCAL  1  NO  ARRAY  FOP 

state 

SCAL 

10 

c 

SCfO  IjPUT  scaling  arday  FOP 

OUTPUT 

SCAL 

11 

c 

5CFJ  1'iPUT  SCALIN'",  APPAY  FOR 

INPUT 

SCAL 

12 

c 

NX'  T'JDUT  MJwrfR  OF  REDUCED 

STATES 

SCAL 

13 

c 

,\|P  ;  INPUT  MUMQfR  OF  REDUCED 

OUTPUTS 

SCAL 

14 

c 

MU,  I  [Oi J T  NU'*RFR  of  reduced 

INPUTS 

SCAL 

15 

c 

OTmER  PAPAMFTF-S  are  defined  in  callimc. 

PRO OR AN 

SCAL 

lb 

c 

SCAL 

17 

0  I M  F  N  I  ON  A  (NXK.MXM)  ,«(NA'<.NU’il)  »C  (NRM*fJXM)  *D(NPR* 

MUM) 

SCAL 

IS 

DIMENSION  SYFSINXMi  .SCFO(NRM)  ,SCFl  (SIU^I 

SCAL 

19 

DO  15  1=1. NXN 

SCAL 

20 

00  15  J=l.MXN 

SCAL 

21 

153 

A  (  I  ,  J)  =SCFS  (  I  )F-A(  I  .U)  /SCFS(U) 

SCAL 

22 

00  17  1=1. NXN 

SCAL 

23 

DO  17  J= 1 .NUN 

SCAL 

24 

170 

9< I . Ji =SCFS ( I >*R< I . J) ySCFT <  J > 

SCAL 

25 

00  19  1=1. NRN 

SCAL 

26 

00  19  J=l.MXJ 

SCAL 

27 

193 

C( I » J ) =SCFO( I l *C ( I .JI/SCFSfJ) 

SCAL 

28 

DO  2 1  *  1=1 .NRN 

SCAL 

29 

00  21  J= 1 .NUM 

SCAL 

30 

210 

0(I»J'=SCF0(Il*D(I.J)/SCf'I  !.)) 

SCAL 

31 

RETURN 

SCAL 

32 

END 

SCAL 

33 

Figure  50.  Subroutine  SCAL  Program  Listing 
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(  Enter  J 

Shuffle  State 
Space 
Quadruple 
Data  (A,B,C,D) 
(Call  SHUF1 ) 


Shuffle  Name 
List  Data 
Arrays  NN,  SCF, 
VN,  DES,  UNIT, 

for  States, 
puts  and 

iWl”; 


UNITh 

Out 

!M 


Return 


Figure  51.  Subroutine  SHUFF  Flow  Chart 
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O  U  KJ  O  O  O  U  O  U  O  W  O  U  O  4JOU  DUO 


SURRO  iT  INC  SMUEE(A.R.C.O«NNS»vNS»DESS. UNITS. 

1NN0.V  O.OESO.UNITO.NNI .VNI .DCSl.UNl T  I  . 

?NS«Ufc  .NSMUEO.NSMIjr  I  •  DUMMY  1  .  Di  IMM Y  ?  .  NX  .  NR  .  MU  *  NX.V  •  NS*  .N  JM  « 
3NDH1 I  .NUM1?.NPM»1  ,N0M3?t 

PURPOSE  -  TO  SHUTTLE  OUAORUoLF  DAT*  AMD  NAME  LTST  DATA 
ANAL  Is  IS  -  A  r  KONaR  /  J  K  MAhESM  -  THE  HONEYWELL  INC 
DATE  /'P  I  T  TEN  -  MAY.  1<J75 

SUBPROGRAMS  CALLED 
SMtlEl 
SHir? 

ARGUMr  NT  LIST 


OTHER  PARAMETERS  APE  DEFINED  IN  CALLING  PROGRAM 

DIMENSION  A(NXM.NXM) iR (NXM'NUM) *C (NRM.NXMI *0 (NPM.NUM) 
DIMENSION  NNS(NXM) .VNSINAM.?) .DESS (NXM. 101 .UNITS (NXM.4I 
DIMENSION  NNO(NRM) . VNO ( NRM . *1 ,DES0 I NRM. 1 0 » . UNI  TO  I NRM. 4 » 
DIMENSION  NNI (NUM1 . VNI <NUM.?> .DESI (NUN. lot .UNIT  I (NUM.4) 
DIMENSION  NSHUESINXMI .NSMUEO < NRM I , NSMJE J (NUM> 

DIMENSION  OUMMYI (NnMl 1 . NDM 1  ? )  « DUMMY  ? I NDM2 1 . NDM>? ) 

SHUEEi  E  A  H  C  D  MATRICES 

CALL  SHUEl < A.USHUES.NSHUES.DUMMYI . NXM.NXM.NX .NX ,NDM1 1  .N0M1?) 
CALL  SHUEI  ( R«  NSHUE S  . NSHUE I  . DUMMY  I  . NXM .N'JM .NX  .  Nl t .NDM  1 1  » NOM 12) 
CALL  SMUEl (C.NSHUrn.NSMUrS.DUMMYI.NRM,NXM.NR.NX.NDMll.N0N12* 
CALL  SHUEI (D.NSHUEn.NSHUEJ .HUMMYl .NRM.NUM.NR.NU.NDMU .NDM12) 

SHUEEi  E  SCALING,  UNIT  AND  DESCRIPTION  ARRAYS 

CALL  SMUE2 (NNS.WNS.0ESS.UN ITS. NSHUES. DUMMY  1 .DUMMY?. 

1  NX M ,N  < • NDM 1  I .NDMI?.NDM?I .N0w2?> 

CALL  SHUE?(X(NO,WND.DEsO,UNITO,NSHUEO, OUMMYI .DUMMY?, 
1NRM.NJ.N0M1 1 ,NDMI?.NDM?1 .NDM??) 

CALL  SHIJF?(MNI .VNI .0ES1 .UNITI.NSHUE I, DUMMY  1 .DUMMY?. 
lNUM.Ni'.NDMll .NDM1?,NDM?1 »NDM2?) 

retur N 

END 


SHUEE  2 
SMUEE  3 
SHUEE  4 
SHUEE  5 
SHUEE  6 
SHUEE  7 
SHUEE  8 
SHUEE  9 

SMUEE  10 
SHUEE  11 
SMUEE  12 
SMUEE  13 
SHUEE  U 
SHUEE  15 


NX 

INPUT 

NUMBfR 

0E 

STATES 

SHUEE 

16 

NR 

INPUT 

NUMRER 

0E 

outpjts 

SHUEE 

17 

NU 

INPUT 

NUMBER 

or 

!N®UTS 

SHUEE 

16 

SMUEE  19 
SHUEE  20 
SHUEE  21 
SHUEE  22 
SHUEE  23 
SHUEE  24 
SHUEE  25 
SHUEE  26 
SHUEE  27 
SHUEE  28 
SHUEE  29 
SHUFE  30 
SHUEE  31 
SHUEE  32 
SHUEE  33 
SHUEE  34 
SHUEE  35 
SHUEE  36 
SHUEE  37 
SHUEE  38 
SHUEE  39 
SHUEE  40 
SHUEE  41 
SHUEE  42 
SHUEE  43 
SHUEE  44 


Figure  52.  Subroutine  SHUFF  Program  Listing 
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SURRO  ITINE  SHUF|  < APCD.NSHUFR,  <;SHUFC«  D  JMMY  1  .  NRM .  NCM  .NR.NC, 
1NOM11 .NDM12) 


SHUri 
ShUF  1 


c 

PURPOSE  -  TO 

Scuffle 

l HE  MATRIX  ARCD 

SHUF  1 

c 

ANAL  ISIS  -  A 

F  KONtR 

/  J  K  mAhESH  -  TnF  HONETWSLL  INC 

SHUF  1 

c 

c 

c 

DATE  WRITTEN 

argument  LIST 

-  T 97s 

SHUF  1 
SHUF! 
SHUF  1 

c 

A8CD 

IN/OUT 

MATRIX  TO  RE  SHUFFLED 

SHUF  1 

c 

NSwUFR 

IMPUT 

ROW  SHUFFLING  ARRAY 

SHUF  1 

c 

NShUFC 

INPUT 

COLUMN  SHUFFLING  ARRAY 

ShUF  1 

c 

NR- 

INPUT 

MAXIMUM  NUMBER  OF  ROWS 

SHUF  1 

c 

NO 

INPUT 

MAXIMUM  NUMBER  Or  COLUMNS 

SHUF  1 

c 

NR 

INPUT 

NUMBER  OF  ROWS 

SHUF  1 

c 

NC 

INPUT 

NUMBF  R  OF  COLUMNS 

SHUF  1 

c 

c 

OTHER  PARAMETERS  APF 

defined  in  calling  program 

SHUF  1 
SHUF  1 

DIMENSION  AHCO (NRM.NCM)  , DUMMY  I  <N0M1  l , NOM 1 ? ) ,NSHUFR (NRM 
DIMENSION  NSHUFC (NCm 1 

SHUF  1 
SHUF  1 

fuiirl 

DO  12’  1=1. NR 
1 1  =NShIJFR  ( | ) 

DO  12  J=1  .NIC 

120  DUMMY ( ( I . J) =  ABCO (  I  !  .  J) 
00  14.  J= 1 « NC 
JJ=NSmuFC(J> 

DO  14  1=1, NR 

140  ABCOI » .J) =DUMMV1 ( 1 .  JJ) 
RE'TURn 
END 


SHUF 1  22 
SHUF 1  23 
SHUF 1  24 
SHUF 1  25 
SHUF 1  26 
SHUF 1  27 
SHUF 1  28 
SHUF1  29 
SHUF 1  30 


Figure  54.  Subroutine  SHUF1  Program  Listing 


...  .....  « 


oooooooooonoooo 


120 


140 


160 


200 


220 


240 


SUBROUTINE  SHUF?<Nm,  VN.OES.tjN  I  T  .NSHUF .0UMMY3.0UMMY 1  * 

SHIJE2 

2 

NM.N.  '0M11  .ND^I  5,:jnM2l  ,MO«2">) 

SHUF2 

3 

SHUE2 

4 

PURPOsF  -  TO  shuffle  name  list  arrays 

SHUE2 

5 

ANALIsIS  -  a  F  KONaR  /  J  K  JiAHESh  -  THE 

HONEYMFLL  INC 

SHUE2 

b 

OATE  JRITTEM  -  197c 

SHUF2 

7 

SHUF2 

8 

AROUMcnT  LIST 

SHUE2 

9 

NN  1N/OUT  NUMR“R  ARRAY 

SHUF2 

10 

VN  I N/OUT  VARIABLE  name  array 

SHUE2 

11 

DFv  IM/OUT  DESORPTION  ARRAY 

SHUE2 

12 

UNIT  IN/OUT  UNIT  ARRAY 

SMUF2 

13 

NS-'UF  INPUT  SHUFcliNO  ARRAY 
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SMUE2 

25 

DO  12  J= 1 « 2 

SHUE2 

26 

JJ=1*  l 

SMUE2 

27 
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SHUF2 

35 

NM  III  sDIJMMYI  <  1 . 1 ) 
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END 
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Figure  56.  Subroutine  SHUF2  Program  Listing 
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Figure  57.  Subroutine  QDIO  Flow  Chart 
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Figure  58.  Subroutine  QDIO  Program  Listing 
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CALL  mPRS(H.NA«4«NUm.NX.NU,T.4hG  I 

CALL  mPRS(C»NRM.NXM,NP,uX.T.4mH  ) 

CALL  4PRS<O.NRM.NUm«NR,NU,T.4mE  ) 

160  CONTINUE 
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200  CONTINUE 
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4( (0( I . J) «I»1 .NR) . J*! »NU) • 

SNXA.NoA.NUA.NR1 .NR5.NR3.NU1  .Nil?, NU3« 
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5NXA.NRA.NUA.NR1 .NR5.NR3.NU1.NU2.NU3 


Figure  58.  Subroutine  QDIO  Program  Listing  (Continued) 
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Subroutine  QDIO  Program  Listing  (Concluded) 
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Figure  59.  Subroutine  IDRO  Flow  Chart 
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Figure  60.  Subroutine  IDRO  Program  Listing 
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fNCOO1-  I  )  »CAR02( 1-41  «CA7D2<  l“D  »CA3D2<  1  ~ 3 »  «  CARP2  (  I“1  > 

750  FORMA!  <4*n 

r,o  to  Ti o 

260  CONTI-UE 

ENCOOr <4, 2S0.C4WDT ( 1 ) 1 C 4302 (1-2) «CA4D?< T-) ) .HH.ne 

00  TC  313 
280  COST  I  'UE 

rscoof (4.??r.c4»ni < i ) »r apq2< i-i t .hm.hm.hh 
300  CONTI  UE 
1*1*3 

JFICA^O?!  I  >  .E  ).uE° )'*>('  TO  32 

1*1*1 

IF(C*-'02(  1 )  .NE  .HEPtOO  TO  4? 

FNCOOM2*  MC  *0430  3(3)  tC4»02< 1-2)  *CA807<l-l  * 

310  FORMA*  <2411 
00  TO  34!) 

320  CONTImUE 

ENCOOr  <2.  31  0  •CAPO'’  (3)  1  hp,  C  4 -JO’  <  I -l ) 
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Figure  60.  Subroutine  IDRO  Program  Listing  (Continued) 
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IORO  147 
IORO  148 
IORO  149 


Figure  60.  Subroutine  IDRO  Program  Listing  (Concluded) 


187 


Enter 


Pead  Response 
Specification 
Data 
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=  Retain,  Residualize, 
Truncate 
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Print  Error 
Message 
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Array  JNEW 
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Variables 


Residualize 


Truncate 


Fill  Up  the 
New  Order 
Array  JNEW 
for  State, 
and  Output 
Variables 


Fill  Up  the 
New  Order 
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Figure  61.  Subroutine  RSDRD  Flow  Chart 


^ 'tt  - 
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SUBROUTINE  RSDRO  (JNEWS .NSHUF S  >  UNEWO  .NSHUFO. JNEw I » NSHUF 1 . 
|NX,NR«NU»NXRN*NXN»NXR»  NRN .NPR.NRT  .NUN.NXM.NRM « MUH  • 
2JR.IW.IPRINT.IRSt 


PURPOSE  -  TO  R£AO  REOUCTION  AND  SHUFFLING  OATA 
ANAUSIS  -  A  F  KONAR  /  J  K  MAHESH  -  ME  HONEYWELL  INC 
OATE  WRITTEN  -  1975 


SUBPROGRAMS  CALLED 
DE«UG 
ER5M 


ARGUMENTS  LIST 


OTHER  PARAHETE»S  APE  DEFINED  IN  CALLING  PROGRAM 


DIMENSION  JNEWS (NAM) .NSHUFS I  NAM) 

DIMENSION  JNEWOINRM) .NSMOFOCNPM) 

DIMENSION  JNEWI (NUM) . NSHUF I (NUM ) 

DIMENSION  CARO(PO) 

OATA  HENDB.MRFTA.HTATf.hXBRB/AHEND  .4HPETA.AHTaTE.AHX  / 
DATA  HNPUT . HUBBR « HRES I . HBST a/AHNPUT * 4 HU  . AHRrSI .AH  STA/ 

OATA  hRBBR.HTRUN.MUTPU.HSTAT/AMR  .AHTRUN.AHUTPU.AHSTAT/ 
IN-0 
IRS-0 

KS-0  <  KR-0  t  KU-0 

NXRN-c  l  NXN-0  %  NXR-0  %  NRN-0  S  NRR-0  %  NRT-0  %  NUN-0 
IF  C IPRINT.E0.6) CALL  DEBUG ( I , AhRSOR. AHO  .5,0. IW) 

120  CONTINUE 

READ!  (R. 140) CARD 
1 AO  FORMAT (20AAI 

IF(CARO«n.EO.»ENOB)GO  TO  4?0 
IRS-1 

IFICAROIl) .NE.hRETAIGO  TO  2a0 

if i (Caro O) .ne.htatei .and. (card ( 3) ,ne. hnput >.ano. 

I (CAROI3I .NE.HUTPU) )CALL  ERRH ( 1 . AHRSOR .AHO  .5,0. IW) 

160  CONTINUE 


READ  SHUFFLE  DATA  FOR  THE  RETAINED  SYSTEM  VARIABLES 


READ ( IR. ISO ) HD.N 
ISO  FORMATIAA.IX.I2) 

IF(H0.E0.HEN0B)C.0  TO  ?20 
IF(HD.NE.HXBBB)GO  to  poo 


FORM  (NEWS  ARRAY  FoR  STATES 
KS-KS.T 
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RSORD 
RSORD 
RSDRD 
hsord 
RSORD 
RSORD 
RSORO 
RSDRD 
RSDRD  10 
RSDRD  11 
RSORD  12 
RSDRO  13 
RSDRD  I ♦ 


2 

3 

A 

5 

b 

7 

8 
9 


JN--WS 

OUTPUT 

ARRAY  FOR  NEW  0»QE9  OF  STATES 

RSDRD 

JNFWO 

OUTPUT 

ARRAY  FOR  NEW  ORDER  OF  OUTPUTS 

RSDRO 

JNrWI 

OUTPUT 

ARPAY  FOR  NFW  ORDER  OF  INPUTS 

RSDRD 

NS»UFS 

OUTPUT 

SHUFrLING  ARRAY  FOR  STATE 

RSDRD 

NSmIIFO 

OUTPUT 

SHUFFLING  ARRAY  FOR  OUTPUT 

RSDRD 

NSHUF I 

OUTPUT 

SHUFFLING  ARRAY  FOR  INPUT 

RSDRD 

NX 

input 

NUMBER  of  states 

RSDRD 

NR 

INPUT 

NUMBER  of  outpjts 

RSDRD 

NU 

INPUT 

NUMBER  of  INPUTS 

RSDRD 

NXRN 

OUTPUT 

NO  of  STATES  to  re  retained  and  residuali 

RSDRD 

NXN 

OUTPUT 

NUMBER  of  reduced  states 

RSDRD 

NRN 

output 

NUMBER  OF  REDUCED  OUTPUTS 

RSDRD 

nRr 

OUTPUT 

NO  OF  OUTPUTS  TO  BE  RESIDUAL I2ED 

RSDRO 

nrt 

OUTPUT 

NO  OF  OUTPUTS  TO  BE  TRUNCATED 

RSDRD 

NUn 

OUTPUT 

NUMBER  OF  REDUCED  INPUTS 

RSDRD 

IR 

INPUT 

FILE  NO  FOR  IN»UT  DATA  PUFFER 

RSORD 

IW 

INPUT 

FILE  NO  FOR  LINE  PRINTER 

RSDRD 

IPRINT 

INPUT 

PRINT  CONTROL  FLAG 

RSDRD 

IRS 

OUTPUT 

RESIDUAL  1 2 AT  ION  flag 

RSORO 

RSORD  34 
RSDRD  35 
RSDRD  36 
RSDRD  37 
RSDRD  38 
RSDRD  39 
RSDRD  AO 
RSDRD  A1 
RSDRD  A2 
RSDRD  A3 
RSDRD  44 
RSDRD  AS 
RSDRD  46 
RSDRD  47 
RSDRD  48 
RSDRD  49 
RSDRO  50 
RSDRD  51 
RSDRD  52 
RSDRO  53 
RSDRO  54 
RSORD  55 
RSDRD  56 
RSDRD  57 
RSDRD  58 
RSDRD  59 
RSDRD  60 
RSDRO  61 
RSORD  62 
RSDRD  63 
RSDRO  64 
RSDRO  65 
RSDRD  66 
RSORD  67 


Figure  62.  Subroutine  RSDRD  Program  Listing 


JNEMS (KS»*N 
GO  TO  160 
200  CONTINUE 

ir  (M0.NE.MUB8HI.i0  TO  210 

FORM  INEMI  ARRAY  FOR  INPUTS 

KU«KU*1 
JNEMI (KUI »N 
GO  TO  160 
210  CONTINUE 

IF (MO.NE.MRRBH)CALL  ERRM ( 2 • 4H9SDR • 4HD  *5*0*IW> 

FORM  JNEMO  ARRAY  FOR  OUTPUTS 

kr«kr«i 

JNEMO (KR)«N 
GO  TO  160 
220  CONTINUE 
NXNaKS 
NUNaKU 
NRNaKR 
NXRN«NXN 
GO  TO  120 
260  CONTINUE 

IF (CAPO ( 1 1 .NE.MRESl I  GO  TO  360 

READ  SHUFFLE  OATA  FOR  THE  RE SI DUAL  1 2EO  SYSTEM  VARIABLES 

if tcAPO (6i .ne.hst at *call  errmo.amrsor«*mo  *5*o*im> 
260  CONTINUE 

REAO(lRf IflOIMOtN 
IF(M0.E0.MEN0B1G0  TO  350 
IF (H0.NE.HXB8BIG0  TO  200 

FORM  JNEMS  ARRAY  FOR  STATES 

KSaKSO 
JNEMS (KSI *n 
GO  TO  260 
200  CONTINUE 

IF(H0.NC.HRBBB1CALL  ERRM (4.4MRSDR • AMO  *5*0* IM> 

FORM  JNEMO  ARRAY  FOR  OUTPUTS 

KRaKR.l 
JNEMO (KR)aN 
GO  TO  260 
350  CONTINUE 
NXRNaKS 
NXRaNXRN-NXN 
NRRaKR 
00  TO  120 
360  CONTINUE 

IFICARDIll.NE.HTRUNlCALL  ERRM(5«6HRSDR'6HD  *5*0* IN) 
IF(CARD(3).NE.HRSTa1CALL  ERRM (6»6MRS0R*6M0  *5*0* IM) 

REAO  SNUFFLE  OATA  FOR  THE  TRUNCATED  SYSTEM  VARIABLES 

600  CONTINUE 

REA0(fR*100IH0*N 
IFIMO.EO.MENOBtGO  TO  410 

IF(M0.NE*HRBBBICALL  ERRM(7*4HRS0R*4H0  *5*0* IMI 
FORM  JNEMO  ARRAY  FOR  OUTPUTS 


RSORO  68 
RSDRO  69 
RSORO  70 
RSORO  71 
RSDRO  72 
RSORO  73 
RSORO  74 
RSORO  75 
RSORO  76 
RSORO  77 
RSDRD  78 
RSORO  79 
RSORO  80 
RSORO  81 
RSORD  82 
RSORO  83 
RSORO  84 
RSORD  85 
RSORO  86 
RSORD  87 
RSORO  88 
RSORO  89 
RSORO  90 
RSORO  91 
RSORO  92 
RSORO  93 
RSORO  94 
RSORD  95 
RSDRO  96 
RSORO  97 
RSORD  98 
RSORO  99 
RSDRD 100 
RS0R0101 
RSORO 182 
RSDRD 103 
RSORO 104 
RS0RD105 
RSORD106 
RSDRO 107 
RSORO 108 
RSDRD109 
RSORO 1 10 
RSDRO 1 1 1 
RS0R0112 
RSDRD113 
RSDRDU4 
RSORO 1 15 
RSORO 1 16 
RS0R01 17 
RSDRD1 18 
RS0R01 19 
RSDRO 120 
RS0R0121 
RSDR0122 
RSDRD123 
RSORO 124 
RSDRO 125 
RSORD 126 
RS0RD127 
RSDRO 128 
RSORO 129 
RS0R0130 
RSORO 131 
RS0R0132 
RSDRO 1 33 


Figure  62.  Subroutine  RSDRD  Program  Listing  (Continued) 


KRaKR. | 

JNE90<KR»aN 
00  TO  4#0 
440  CONTINUE 
NRTaKP-NRR 
GO  TO  120 
420  CONTINUE 

If  < IRS  .EG .0) RETURN 

If (|R»INT.E0.6>CALL  DEBUG ( 2 . 4mR$DR < 4H0  .5.8.101 

HaNXPN 
C 

C  fORN  SHUffLE  ARRAY  fOR  STATES 
C 

00  470  i-I.NX 
00  430  Ja 1 « NXN 
JJ*  J 

If <!.F0.JNC*S<Jjnr,0  TO  460 
430  CONTINUE 

If (NXR.EO.OIGO  TO  450 
00  440  J*1<NXR 
JJaNXN.J 

If  (I.EO.JNEWS(JJ)  )r,0  TO  460 
440  CONTINUE 
450  CONTINUE 
II«II*I 
NSHursunai 
GO  TO  470 
460  CONTINUE 

NSHUfSUJI-I 
470  CONTINUE 

If  (  IPn INT .E0.6i CALL  Of  RUG 1 3  < 4HRS0R  » 4M0  .5.0.110 

C 

C  fORM  SHUffLE  ARRAY  fOR  OUTPUTS 
C 

II-NRn 

I f I NRN .LE .0 )I I “NRT «NRP 
Iflll.EO.OIINal 
00  57r,  I ■  1  *NR 
If (NRN.LE.OIGO  TO  520 
00  51 0  J-l.NRN 
J  J*  J 

If  (I.FO.JNEWOlJjnGO  TO  560 
510  CONTINUE 
GO  TO  550 
520  CONTINUE 

If  CNRR.EQ.tMGO  TO  535 
00  53?  J»l *NRR 
J  Ja  J 

If (I.FQ.JNEOOI JJI >G0  TO  560 
530  CONTINUE 
535  CONTINUE 

If <NRT.EQ.OIGO  TO  S50 
00  54 n  J»l *NRT 
JJaNRP* J 

If  <I.FQ.JNEWO(Jjnr,0  TO  560 
540  CONTINUE 
550  CONTINUE 
1 1  ■  1 1  ♦  1 
NSHUfoun-i 
GO  TO  570 
560  CONTINUE 

NSMUfOI JJIal 
570  CONTINUE 

If »in.eo.iinpn«nr 

INaO 

jrHPOTNT.F0.MrAM  OFRUGI4.4hRSOR.4HO  .5.0.101 


RS0R0134 

RSDR0135 

RS0RB136 

RSOR0137 

RS0RP138 

RS0R0139 

RS0RD14# 

RS0R014I 

RS0R0142 

RSOR0143 

RS0R0I44 

RS0R0I4S 

RS0R0I46 

RS0R0I47 

RSORO140 

RS0R0I49 

RSDR0150 

RSOROlSl 

RS0R01S2 

RSOR0153 

RS0R0154 

RS0R0I5S 

RS0R0156 

RSOROI57 

RS0R0IS6 

RS0R01S9 

RSDR0160 

RS0R0161 

RSDR0162 

RS0R0163 

RS0R0164 

RS0R0165 

RS0R0166 

RSDR0187 
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RS0R0169 

RSOR0170 

RSOROlTl 

RS0R0172 

RS0R01T3 

RSDR0174 

RS0R01T5 

RS0R0I76 

RS0R0177 

RSOR0178 

RS0R0I79 

RSOROISO 

RSOROlOl 

RS0R0162 

RSDR01S3 

RSDR0104 

RS0R01S5 

RS0R01S6 

RS0R0187 

RSDRO108 

RS0R0189 

RSDRD190 
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Figure  62.  Subroutine  RSDRD  Program  Listing  (Continued) 
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r>  n  n 


FORM  shuffle  ARRAY  FOB  INPUTS 
1 I=NUN 

I F ( Il.EO.U)  I N  =  1 
DO  67  1=1 .NU 

IF(NUi.LE.i»)GO  TO  6<*0 
00  60  J= 1 • NUN 
JJ  =  J 

IF  (  I  ,r0.  JNEWI  I  JJ)  1F.0  TO  660 
630  CONTINUE 
660  CONTINUE 
11*11*1 
NSHUFT (111*1 
GO  TO  670 
660  CONTINUE 

NSHUFT ( JJI=I 
670  COnTIMIE 

IF(JN.E0.1>NUN=NU 

IF ( IPvINT .£0.6) CALI  DFHUG(5.6hBSOS.4MO  .5.0.JW) 
JFUPnINT.LT. 6>G0  TO  680 
WRITE ( IW.67SINK.NXN.NPtNRN.NU.NUN 
675  FORMAT (IX. 20( I?«1KI i 

WRITE ( I W. 675 1 JNFWS. JNFWO. JNfWJ 
WRITE  (  IW.675)  NShUFS.NSHUFO.N'ShUF  1 
690  CONTI  IUE 
RETURN 
END 


RSDRD200 

RSORD201 

RSORD202 

RSDRD203 

RSDRO204 

RSDRD205 

RSDR0206 

RSORD207 

RSDRD208 

RSORD20R 

RSDRD210 

RSDRD21 1 

RSDRD212 

7SDRD213 

RS0RD214 

RS0RD215 

RS0RD216 

RS0RD217 

RSDR0218 

RSDRD219 

RSDR0220 

RS0RD22I 
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RSDRD223 
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RSDRD225 

RSDRD226 

RSDRD227 


Figure  62.  Subroutine  RSDRD  Program  Listing  (Concluded) 
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SUBROUTINE  SOBOISCrS.UNITNS.UNlTS.SCFD. JNITNO.UNITO.SCFIfONITNI* 

SDRD 

2 

1UNITI  ,NX.NB,NU»NXM,NRM,NUM, IR,1W,IPB1NTI 

SDRD 

3 

SDRD 

4 

PURPOSE.  -  TO  RF *0  SCALE  DATa 

SDRO 

5 

ANAL  ISIS  -  A  F  KONaR  /  J  K  *AMESH  -  THE 

HONEYMFLL  INC 

SDRD 

6 

OATE  WRITTEN  -  1 975 

SDRD 

7 

SORD 

B 

SUBPROGRAMS  CALLED 

SDRD 

9 

OEUUG 

SDRO 

10 

ERo“ 

SDRD 

11 

SORD 

12 

ARGUMENTS  LIST 

SDRD 

13 

SCFS  OUTPUT  SCALING  ARRAY  FOR 

STATE 

SDRD 

14 

SCFO  OUTPUT  SCALING  ARRAY  FOR 

OUTPUT 

SDRD 

15 

SCfl  OUTPUT  SCALING  ARRAY  FOR 

INPUT 

SDRD 

16 

NX  INPUT  NUMBER  OF  STATES 

SORD 

17 

NR  INPUT  NUMRfR  OF  OUTPJTS 

SDRD 

18 

NU  INPUT  NUMBER  OF  INPUTS 

SDRD 

19 

JR  INPUT  FILE  NO  FOB  IN»UT 

DATA  BUFFER 

SDRO 

20 

IW  INPUT  file  no  for  LINE 

PRINTER 

SDRD 

21 

iprint  input  PRINT  control  flag 

SDRO 

22 

OTHER  PARAMETERS  ARE  DEFINED  IN  CALLING 

PROGRAM 

SDRD 

23 

SDRO 

24 

DIMENSION  SCFS(NXM)  <UNl TS (NXM. A) ,UNITNS <NXM,4) 

SDRO 

25 

DIMENSION  SCFO<NRMl «UNI TO )N9M,4) «UNITN0 (NBM«4 ) 

SDRD 

26 

DIMENSION  SCFI INUMt ,UN  IT  I (NljM.4) .UNITNI (NUM  *4 ) 

SDRD 

27 

DIMENSION  UN (41. UNN ( 4 ) 

SDRD 

28 

DIMENSION  CARO< 20) 

SDRD 

29 

DATA  hENOB » HXBBB * HrBBB • HUBRB/4HEND  *4MX 

, 4MR  , 4HU  / 

SDRD 

30 

DATA  HSCAL/4MSCAL/ 

SDRD 

31 

ISC-0 

SDRD 

32 

IF(IPPINT.E0.6)CALL  DEBUG < 1 ,4mS0RD*4H 

,5,0, IN) 

SDRO 

33 

SDRD 

34 

INITIALIZE  SCF  ARRAY 

SDRD 

35 

SDRO 

36 

00  14,',  1-1  »NXM 

SORD 

37 

140 

SCFS) M-1.0 

SDRD 

38 

DO  1 6 1  1-1, NRM 

SDRD 

39 

160 

scfo<i)»i.o 

SDRO 

40 

DO  ISO  I«l,NUM 

SDRD 

41 

ISO 

SCF 1 1 1 ) *1 *0 

SDRO 

42 

SDRD 

43 

READ  >IE«  SCALE  AND  UNIT  DATA  AND  UPOATE 

SCF  AND  UNIT  ARRAYS 

SDRD 

44 

SDRD 

45 

260 

CONTINUE 

SDRD 

46 

READ) lRt280)H0*N»Sc» IUN( J) « j-1 *4) * (UNN) J)  « J-1 ,4) 

SDRD 

47 

2S0 

FORMAT  <A4,|X,I2,3X,E14.6,6X,4A4,4X,4A4> 

SORD 

48 

IF ( ipr inT ,E0«6) CALL  DEBUG ) 2 ,  4hS0RD*  4M 

,5,0*IN) 

SDPD 

49 

IF IHO.EO.HENOB) RETURN 

SDRD 

50 

isc«i 

SDRO 

51 

IF(MD.N£,HXBBB)G0  TO  320 

SDRO 

52 

SORD 

53 

FOR  STATES 

SDRD 

54 

SDRO 

55 

SCFSI*J)«SC 

SORD 

56 

DO  30"  J*  1  ,4 

SDRO 

57 

UNiTNS )N«  J) »UNN )  J) 

SDRD 

58 

300 

UNITS (N*J) -UNN ) J) 

SDRD 

59 

GO  TO  26* 

SDRD 

60 

320 

CONTINUE 

SORD 

61 

IF<MO.NE.HRBBB)GO  TO  360 

SDRO 

62 

SDRO 

63 

FOR  OUTPUTS 

SDRO 

64 

SDRD 

65 

SCFO)Nl»SC 

SDRO 

66 

DD  34."  J— 1,4 

SDRD 

67 

Figure  64.  Subroutine  SDRD  Program  Listing 
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r>  o  o 


U'llINllNiJI  *UVl  t  J) 

T<*0  U'JJTO  If.  J)  =UNM  (  J) 

00  TO  ?M> 

CONT  I'iUF. 

IF <H0,\E.mUBBB) TALL  F  PPM  (  ?,  (.HSUPO. 4H  «6*0»Iw> 
FOk  l  .PUTS 
SCFJ  <  >*SC 

no  IB  j*l.* 

D'JITNI  (N.  J>=UVI(J) 

1B0  UMITI  (N. J)  =IJNM( J) 

00  TO  Pft j 
fmo 


SORD  68 
SDRD  69 
SDRD  70 
SORD  71 
SORD  72 
SDRD  73 
SDRD  7* 
SDRD  75 
SDRD  76 
SDRD  77 
SORD  78 
SDRD  79 
SDRD  80 
SDRD  81 


Figure  64.  Subroutine  SDRD  Program  Listing  (Concluded) 
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Figure  65.  Subroutine  FILE  Flow  Chart 
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SUBROUTINE  FILE  (Nr  *Lf  •MODE  «\'AME  » 

FILE 

FILE 

? 

3 

PURPOSE  -  TO  POSITION  THE  DATA  FILE 

FILE 

4 

ANAL  ISIS  -  A  r  KONAR  /  J  K  mA„ESH  -  THE  HONFTwFLL  INC 

FILE 

5 

OATf  iBITTr'N  -  197s 

FILE 

b 

FILE 

7 

ARGUMENT  LIST 

FILE 

8 

NETLE  FILE  NhMREh  OE  THE  OISK 

file 

FILE 

4 

MO  Of  MODE  PARAMETER  (LOCATE* 

INSERT, NULL) 

FILE 

10 

N  A'*c  LABEL  t<*Mt 

FILE 

1  1 

FILE 

12 

DIMEN -ION  NAME (PO)  ,L  Aar L (?0l .cast (?0) 

FILE 

13 

INTEGER  H)0LO 

FILE 

1  4 

OAT*  i.OCATE* INSERT. NUlL/ahLOC4*ahinSE*ahNULL/ 

FILE 

IS 

DATA  -tnOLR/AHSSSS/ 

FILE 

lb 

lW«9 

FILE 

17 

no  io  1*1  *?<• 

FILE 

IB 

100  LAST ( I t*MOOLB 

FILE 

19 

IE  (MOOE.EO.LOCATElr.O  TO  140 

FILE 

20 

IE  (MOr,E  .EQ. INSERT ) GO  TO  I’O 

FILE 

21 

IE (MO ’E .CO. NULL • 00  TO  140 

FILE 

22 

FILE 

23 

PRINT  ERROR  MESSAE^ 

FILE 

24 

FILE 

25 

WRITE  ( IW»  1  lOt 

FILE 

2b 

110  FORMA1  (  IHl .//. I X.4SHM0DE  OF  OPERATION  F OH  DATA 

FILE  NOT 

SPECIFIEDIEILE 

27 

stop  m 

FILE 

28 

FILE 

29 

CHECK  IE  END  OE  DATA  MARK  Is  BEING  1NSEOTEO 

FILE 

30 

file 

31 

120  CONTINUE. 

FILE 

32 

00  13  1*1,20 

FILE 

33 

IF(NA<E(I» .NE.LASTI  I II  GO  TO  140 

FILE 

34 

130  CONTIuUE 

FILE 

35 

FILE 

36 

WRITE  ENO  OE  DATA  MARK  AND  ALSO  AN  END  OE  FILE 

FILE 

37 

FILE 

38 

WRITE (NEILEt (NAME (fl* 1*1*29) 

FILE 

39 

ENDEILE  neile 

FILE 

40 

REWIND  NEILE 

FILE 

91 

RETUR  i 

FILE 

92 

FILE 

93 

CHECK  IE  LAREL  ON  file  HATCHES  WITH  NAME 

FILE 

94 

FILE 

45 

140  CONTINUE 

FILE 

46 

REWIND  NEILE 

FILE 

47 

150  CONTINUE 

FILE 

48 

READC'EILEI  (LAREL(n,I*|*»0> 

FILE 

49 

00  16  1*1,20 

FILE 

50 

IE (LAPEL ( 1 ) .NE.NAMf ( I l 100  TO  |7J 

FILE 

51 

160  CONTImUE 

FILE 

52 

no  TO  220 

FILE 

53 

FILE 

54 

CHECK  IE  LAREL  IS  THE  ENO  Or  data  MARS 

FILE 

55 

FILE 

56 

170  CONTIUUE 

FILE 

57 

00  12  1*1,20 

FILE 

58 

IE(LAREL(I>.N£.LAST(Il»GO  TO  ’00 

FILE 

59 

160  CONTIuUE 

FILE 

60 

IF (MOuE.EO. INSERT  1 nO  TO  210 

FILE 

61 

FILE 

62 

PRINT  ERROR  MESSAGF 

FILE 

63 

FILE 

64 

Figure  66.  Subroutine  FILE  Program  Listing 


I TC  ( IW.IRONAME* nFIlE 

FILE 

65 

190 

FORMAT ( 1H1 ,//,  1  x.7;;A4,//. 1 x.2QHCAnnOT  Mr  rouND 

ON  DATA  FILE  .1?) 

F ILC 

6b 

STOP  ill 

FILE 

67 

c 

FILE 

6* 

c 

POSITION  THE  FILE  TO  THE  BEGINNING  OF  NfAT  RECORD 

FILE 

69 

c 

FILE 

TO 

700 

CONTINUE 

FILE 

71 

PEAOInFILE) 

FILE 

72 

GO  TO  153 

FILE 

73 

c 

FILE 

7  4 

c 

WRITE  NAME  ON  THE  FILE 

FILE 

75 

c 

FILE 

76 

210 

BACKSPACE  NFILE 

FILE 

77 

WRITE <NF ILF  1 (NAME ( I ) .1*1.201 

FILE 

7% 

RETURv 

FILE 

79 

220 

continue 

FILE 

BO 

IF  (MO^f  ,EQ.  INSERT  )GO  TO  230 

FILE 

B1 

IF(M0oe.E0.L0CATE)OETi)RN 

FILE 

B2 

c 

file 

B3 

c 

WRITE  END  OF  DATA  MARK 

FILE 

84 

c 

FILE 

85 

BACKSPACE  NFILE 

FILE 

8b 

WRITE (NFILEI IL AST (it. I >1.701 

FILE 

87 

return 

FILE 

88 

c 

FILE 

89 

c 

PRINT  ERROR  MESSAGF 

FILE 

90 

c 

FILE 

91 

230 

continue 

FILE 

9? 

WRITE!  IW. 240) NAME. NFILE 

FILE 

93 

240 

FORMAT  (1H1.//,1x.7.')A4.//.|a.2I HALRE AOT  ON  DATA 

FILE  .12) 

FILE 

94 

STOP  Ml 

FILE 

95 

ENO 

FILE 

96 

Figure  66.  Subroutine  FILE  Program  Listing  (Concluded) 
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o  n  n  non  noor>  r>  r*  o  o  o  r>  o  o  r>  o  r>ooor>ononoor> 


SUBPO  iTINE  TPP <  H,  NF  .NfM.NAMF  .  T  « |MI 


PURPOSE  -  TO  PRINT  TRANSFER  FUNCTION  DATA 

ANAL  I > IS  -  A  F  KONaR  /  J  K  MAWESM  -  THE  HONEYWELL  TNC 

OATF  “iR  l  T  TEN  -  197S 


ARGUMENTS  LIST 


LARELl  ED  COMMON  LIST 
I^ES  LOCAL 

M|  LOCAL 

I  LOCAL 

K  LOCAL 


TRANSFER  FUNCTION 

NO  OF  ELEMENTS  OF  THE  TRANSFER  FN 

maximum  NO  OF  ELEMENTS  of  the  transfer  fn 

NAMF  OF  The  TRANSFER  Fn 

SAMPLE  TIME 

FILE  NO  FOR  LINE  “RINTfR 


array  FOR  DESCRIPTION  OE  the  transfer  fn 

CONSTANT 

INQE* 

INO?X 


DIMENSION  HI2.NFM) .NAME <3l 
COMMON  /SCI/  !0ES(6<3) .Ml . I ,K 

CHECK  FOR  DIMENSION  ERROR 

IFUNfM.NE.6I  .OR.  IME.0T.NFN*  |f,0  TO  260 

fill  THE  ARRAY  IDES  KITH  THF  APPROPRIATE  DESCRIPTION  FOR  THE 
ELEME  iTS  OF  THE  TRANSFER  FUNCTION 


IF  ( T.'lE.O 
IDESd  .!» 
ioesip.h 
ioEsn.n 
IOESU.il 
I DES (S» 1 > 
IDES  Is. | > 
GO  TO  1*<J 
120  CONTINUE 

ioest i • i » 

IOESO.ll 
iOESn.D 
IOESU.ll 
I0E5Cs.il 
IDES (s. 1 ) 
140  CONTINUE 


•  C  >  GO  TO  I 
»4HS»*S  * 
*4H5*# A  I 
*4HS»*3  * 
•AMS”?  % 
»4HS**l  S 
=AHS«»0  S 


*4HZ**5  S 
■4HZ**4  » 
*4HZ»«3  S 
»4HZ»»2  % 
■4HZ**1  S 
■4HZ*»0  * 


20 

I0ES(1'?(«4H 
I0ES(2.?1»4H 
IDES(3'?i«4M 
IDES(4.2)«4H 
I0ES(5.2i«4H 
IDES (6,2) *4H 


I0ES(1'2)«4H 
I0FS(2'?t«4H 
IDES  0»2>  *4H 
I0FS(4.2*«4H 
IDFS(S'2»»4H 
IDES  16,2) *4H 


TER  S 
TER  * 
Te«  i 
TER  » 

ter  % 
ter  s 


IDES (1,3*  »4HM 
IDE5(2'3*»4HM 
I0ES(3'3»«4HM 
IDE5 ( 4, 3 1  «4hM 
I0E5(5'3*»4HM 
IDES (6»3»  »4HM 


I  DES ( 1 ' 3) «4HM 
IDES(?'3)»4HM 
IDES ( 3 ' 3) »4HM 
IDES (4.3*  «4hM 
IDES (5,3*  »4HM 
IDES (6, 3  *  «4HM 


PRINT  THE  NAME  OE  THE  TRANSFER  FN 

IF(T.FO.0'O)WPITE(IM'|6O>NAME 
160  FORMAT!//. IX. 3A4) 

IE  ( T.*if  .0.01  WRITE  <  IW.  IROINAne.T 
180  FORMAT  <//*1X,?A4.3h(T**G|4.A* 1 H» > 

PRINT  THE  TRANSFER  FN 

Ml»6-uE»l 

WRITE f  1W, 203 > ( (IDES(I.K».K»|.31.I«M|,6) 
200  FORMAT!//.  18X,S(3A4, 2xn 

WRITE ( I W. 220) (H(l.l*.I»l,NE» 

220  FORMAT (/. IX.9HNUMERAT0R.6X.SG14.6l 
WRITE (IW. 2401 (H(2,n ,I«l,NEl 
240  FORMAT</,lX.llHOENOMINATOR.4X.5Gl4,6> 


TPR  10 
TPR  II 
TPR  12 
TPR  13 
TPR  14 
TPR  15 
TPR  16 
TPR  IT 
TPR  18 
TPR  19 
TPR  20 
TPR  21 
TPR  22 
TPR  23 
TPR  24 
TPR  25 
TPR  26 
TPR  27 
TPR  28 
TPR  29 
TPR  30 
TPR  31 
TPR  32 
TPR  33 
TPR  34 
TPR  35 
TPR  36 
TPR  37 
TPR  38 
TPR  39 
TPR  40 
TPR  41 
TPR  42 
TPR  43 
TPR  44 
TPR  45 
TPR  46 
TPR  47 
TPR  48 
TPR  49 
TPR  50 
TPR  51 
TPR  52 
TPR  53 
TPR  54 
TPR  55 
TPR  56 
TPR  57 
TPR  58 
TPR  59 
TRR  60 
TPR  61 
TPR  62 
TPR  63 
TPR  64 


Figure  68.  Subroutine  TPR  Program  Listing 


200 


n  o  o 


* 


RE  TUB  ■  TPR  65 

TPR  66 

PRINT  fHROR  MFSSEOr  TPR  67 

TPR  68 

?60  CONTINUE  TPR  69 

WRITE < IW.P80I  TPR  70 

280  roPHAT  ( 1*1 .//.  U.RPMDIMENSnN  ERROR  DETECTED  RY  S'JHROJTJNE  TPB>  TPR  71 

STOP  'll  TPR  7? 

END  TPR  73 


Figure  68.  Subroutine  TPR  Program  Listing  (Concluded) 
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nor>r>r>r>r>r>r> 


SUBROUTINE  HPO (CARn. lw) 


PUPPOCF  -  TO  POINT  HEADING  ro-  SYSTEM  L  AHEL  NA^ES 
ANALYSIS  -  A  F  KON.aR  /  J  S  •■*A«FSH  -  T "IF  H0NFYWr|_L  INC 
DATE  'PITTEN  -  l«7s 


apguhtnt s  list 

C'.PD  INPUT 

I  /  INPUT 


SYSTE'4  LAPEL  NAME 

FILf  '.0  FOP  LINE  opjNTrp 


DIMENSION  CAPO (71) 

INTEGER  CARD 
WRITE ( IW. l?0> 

120  FORMAT  <  IHl  .//.Pf.X.AA  <  |H*)  ) 
WRITE ( IW. 140) 

140  FORMAT (20X. lM«.H6X , 1H« ) 

WRITE ( IW.  1601CAPD 
160  FORMAT (20X. |M»,?X.?CA4,4X, |M*) 
WRITE ( IW. 145) 

WRITE  (  IW.  16'<) 

leo  format<?oa«ah(!h*) i 

RFTUR  1 


HPR  15 
HPR  16 
hPR  17 
HPR  lrt 


HPR  22 
HPR  23 


Figure  69.  Subroutine  HPR  Program  Listing 
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SIIAROiiIINE  I0PO1  !».!*<> 


PURPOSE  -  TO  P»INT  INPUT  DATA 
ANAL  I  ->IS  -  A  F  <ON*P  /  J  K  «AH£Sh 
DATE  tPITTEN  - 


T<4E  HONETRECL  INC 


ARGUMENTS  LIST 

|P  INPUT 

IP  INPUT 


FILE  no  fop  INPUT  DATA  PUFFER 
FILE  Nit  FOP  LINE  PRINTED 


DIMENSION  C*PO<?0) 
PFH1N1  IP 
I2C  CONTINUE 

PEAOt  IP.U3»CA»0 
I AO  FORMAT (20A4I 

IF (EOF ( IP) >  ?PC* 16J 
160  CONTI  'UE 

tfPlTf (IW'IOUICAPC 
180  FORMAT ( |X.?,}A4> 

00  TO  12C 
200  CONTINUE 
PFW IN  >  IP 
petup  ; 

ENO 


I  DPP  2 

I  DPP  3 

I  DPP  A 

I  DPP  5 

I  DPP  6 

I  OPR  7 

I  OPR  8 

IOPR  9 
I OPR  10 
1DPR  11 
I0PP  12 
I0PP  13 
I DPP  1a 
I DPR  IS 
IOPR  16 
IOPR  17 
IOPR  18 
IOPR  19 
IOPR  20 
1DPR  21 
IOPR  22 
IOPR  23 
IOPR  2 A 
IOPR  2S 


itaJkT1  ’•  • r ‘  x’j-  •_  - / 


Figure  70.  Subroutine  IDPR  Program  Listing 
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tiKutueii 


.pjliij.I.HUiLii  j  i|i, 


<'U“RO  ' T  I iS* h  MPh  i  (  A  i  'UK  ,  t  «c  «  j  j  .  0.  I  .  I  I  [  Tt_F  > 

c 

c  p,|con  r  -  tt  pj >nt  *-* a t w i *  rw.ru 

C  ANALY-TS  -  A  F  HO'I/.A  /  J  K  A-^Srl  -  Til  nONEYWFLL  INC 


c 

C 

OATF  PITT 

r"M  -  19  7s 

C 

ASi,;,im-  \jts 

LIST 

c 

A 

I  ,9HT 

MATRIX  OATA 

c 

MX  - 

INPUT 

MAXIMUS  no  OF  9f)Wb 

c 

MX- 

I  jPOT 

MAX  I  X  J  .  NO  OF  COLUMNS 

c 

Nr 

t-.PIJT 

N0‘1PF«  OF  ROWS 

c 

NC 

fjRlll 

NIJ  <HFM  tjf  COLUMNS 

c 

T 

(fwOlJT 

SAMP) t  T IMF 

c 

c 

1  T  '  TLf 

INPUT 

T I  f  L  f  Oii  NAME  OF  T“F  matrix 

r 

OTMFN  I  ON 

A  (  M  X  9  «  M  X  r  ! 

i 

V. 

c 

MEG  1(4*  INC. 

OF  COLU  M*. 

ST/f  i_or,P 

JC  - 

loo  cont i  'u-: 

IC  =  1C  ♦  1 
JC  =  1C  *  I 

IF  (J r  ,r,r.  mc>  Jf  =  nc 
c 

C  REGIN  jNf,  of  r.n*  sr /f 

c 

JR*0 

150  CONTI  IJE 

c 

C  D# INT  matrix  namf  .-.nO  M2E 

C 

IF(T.  -O,:.. .1)  WPITF(V.«.H  |  T I  Tut  *NP  •  NC 
@3  FORMA'  <//8H  9»TRI*  .A4.16X.7r.SI2E  =  .I?.3H  X  ,12) 

IF(T.  if.  WRITE(R«9:>|  ITtTlE.T.NR.NC 
90  FORMAT  (  '/8H  MAT»I>  .  A4 , 3H  (  T  =  ,  El  0  ,  4  .  H )  .  2X  ,  7MS I  Z£  =  tl?.3rt  X 
C 

C  PRINT  COLUMN  INDFX 


WRITE  (9,  1  »  (K,  k  =  IC.  JC) 

160  FORMAT  <//ux.  |i.  <2x  .  I3,7m-C0LU  'N)  > 

WRITE  (9*17.'.) 

170  FORMAT (/) 

IPs JR ♦ 1 

jr=jr»1  •>,*.- 
I F ( JR.OT.NR) JP=NR 
r  00  18  I  =  |R »  JR 

C 

C  PRINT  ROW  IN()F X  AMn  MATRIX  OATA 
C 

WRITE  (9.  190)  I«(A(I.J».  J  =  JC«JC> 
190  FORMA  T  (IX. I3.AH-RFW* IX. I j(c 1P.4|> 
ISO  CONT  I  ,1)E 
C 

C  FNn  OF  POw  SI2r  LOOP 
C 

IF ( JR  .LT .NR ) 00  TO  |V' 

C 

C  FNO  Of  COLUMN  M7F  LOUP 

C 

IF  (Jr  .LT.  NC>  fin  To  loo 
C 

C  RFTUR  TO  CALLING  RSOoRAM 


MPRS 

t 

MPRS 

J 

MPRS 

u 

MPRS 

S 

MPRS 

6 

MPRS 

7 

MPRS 

3 

MPRS 

9 

MPRS 

10 

MPRS 

1 1 

MPRS 

12 

MRRS 

13 

MPRS 

14 

MPRS 

IS 

MPPS 

lb 

MPRS 

17 

MPRS 

lrt 

MPRS 

19 

MPRS 

20 

MPRS 

21 

MRRS 

22 

MPRS 

23 

MPRS 

24 

MPRS 

25 

MRRS 

2b 

MPRS 

27 

MPRS 

2rt 

MPRS 

29 

MPRS 

30 

MPRS 

31 

MPRS 

3? 

MPRS 

33 

MPRS 

34 

MPRS 

3S 

MPRS 

Jb 

I?)  MPRS 

37 

MPRS 

3H 

MPRS 

39 

MPRS 

40 

MPRS 

41 

MPRS 

42 

MPRS 

43 

MPRS 

4<* 

MPRS 

45 

MPRS 

4b 

MPRS 

47 

MPRS 

48 

MPRS 

49 

MRRS 

SO 

MPRS 

SI 

MPRS 

52 

MPRS 

53 

MPRS 

5*. 

MPRS 

55 

MPRS 

56 

MPRS 

57 

MPRS 

58 

MPRS 

59 

MPRS 

60 

MPRS 

b  1 

MPRS 

62 

MPRS 

63 

MPRS 

64 

Figure  71.  Subroutine  MPRS  Program  Listing 


SURROuT  INE  “PRS  I  (  A,NRM,NCu,NR,NC«mhEAOI 
“LWBOsf  -  TO  PRINT  LSi  MATRIX  DATA 

ANALI  IS  -  4  F  *ONaR  /  J  K  *A„ESH  -  TMF  MONFVWFLL  INC 
DATE  PITTF.'J  .  |Q7B 


WATPTX  DA  I A 

MAXIMUM  NUMBER  OF  ROWS 
MAXIMUM  NUMBER  OF  COLUMNS 
NUMRCR  OF  POMS 

NUMRfR  of  columns 
MATWIX  TITLE  OR  NAME 


c 

AROuMt  NTS 

LIST 

C 

A 

INRUTT 

C 

NR" 

INPUT 

C 

NC  • 

INPUT 

c 

NR 

INPUT 

c 

NC 

INPUT 

C 

c 

MH^AO 

INPUT 

oimenmon 

A 1NRM.NCM) 

COMWO  ,  /IUOUT/  IR.rW 

c 

IF  (  (  I  ’t)  INT 

•  NE.'M  .  Ann 

c 

WRITE  NAME 

AND  SIZE  1 

WRITE  (  I  N*(J.i )  MHE  AD»e  ,R«f-iC 

80  FORMAT!//, irX.AIO.IAMMATRlX  .  SlZf  r  ,f?0M  X  .!?» 
JC*0 

100  IC=JC*1 


JC=JC*7 

IF! JC.GT.NCl JC*NC 
WC* JC- I C ♦ 1 
c 

C  WRITE  COLUMN  HFfiOl’iCiS 


150  WRITE!  Iw,  16.  )  (*.!<  =  |C«JC> 

160  FORMAT !//,8X,7(RX, I1.7M-COL JMN,3X>  > 
WRITE  (  I  m , 1 7  0 ) 

170  COOMAT!/) 

00  18  1=1, NR 

C 

C  WRITE  ROW  HEADINGS 

C 


180  WRITE.  (  iw«  l  I ,  !  A  (  » .  J»  ,  J=ic.  JCt 
ISO  F0BM4c|IX,IT,4-t»ROi'.i,1x,7(E1£',tI  I 

3?o  ifijc.lt.ncioo  to  no 

WRITE ( Im, 17- ) 

PFTIJR'I 

END 


MPRSl  2 
MPRS1  3 
MPRS1  4 
NPRS1  5 
MPPS1  6 
MPRS1  7 
MPRSl  8 
MPRS1  9 
MPRS1  10 
MPRSl  11 
MPRSl  12 
MPRSl  13 
MPRS1  14 
MPRSl  15 
MPRSl  16 
MPRSl  17 
MPRS1  18 
MPRS1  19 
MPRS1  20 
MPRS1  21 
MPRSl  22 
MPRSl  23 
MPRSl  24 
MPRSl  25 
MPRSl  26 
MPRSl  27 
MPRSl  28 
MPRSl  29 
MPRSl  30 
MPRSl  31 
MPRSl  32 
MPRSl  33 
MPRSl  34 
MPRSl  35 
MPRSl  36 
MPRSl  37 
MPRSl  38 
MPRSl  39 
MPRSl  60 
MPRSl  41 
MPRSl  42 
MPRSl  43 
MPRSl  44 
MPRSl  45 


Figure  72.  Subroutine  MPRSl  Program  Listing 


SUBROUTINE  ZEROU.NRM.NCMt 


C 

C  PURPOsf  -  TO  ZERO  THE  ELEMENT?  OF  A  MATRIX 

C  ANAL  ISIS  -  A  r  KON&R  /  J  *■  MAmFSH  -  THE  honeywpll  INC 

c  DATE  "BITTEN  -  107? 

C 

C  ARGUMENTS  LIST 

C  A  OUTPUT  MATRIX  DATA 

C  NR*  INPUT  MAXIMUM  NUMBER  OF  ROMS 

C  NC<  INPUT  MAXIMUM  NUMBER  OF  COLUMNS 

C 

OIMENSION  A(NRM.NCM) 

00  12  1*1.  NRM 

00  12  J=1.NCM 
120  A(I.J>*t).0 
RETURN 
ENO 


ZERO  2 
ZERO  3 
ZERO  4 
ZERO  5 
ZERO  6 
ZERO  7 
ZERO  8 
ZERO  9 
ZERO  10 
ZERO  II 
ZERO  12 
ZERO  13 
ZERO  14 
ZERO  15 
ZERO  16 
ZERO  17 
ZERO  18 


nno 


SUBROUTINE  INPT ( A. T l  .  JJ) 

INPT 

?. 

INPT 

3 

PURPOSE  “  TO  READ  HON  ZERO  ELEMENTS 

OF  A  MATRIX 

INPT 

4 

INPT 

5 

ARGUMENTS  LIST 

INPT 

6 

A  OUTPUT  MATRIX  DATA 

INPT 

7 

II  INPUT  MAXIMUM  NO  OF 

ROriS 

INPT 

B 

JJ  INPUT  MAXIMUM  NO  OF 

COLUMNS 

INPT 

9 

INPT 

10 

DIMENSION  At  1 1. JJ> . 1015!  . J0(5> .VD(S) 

INPT 

11 

1 

RE AD ( S 1 2  > t ID  t I 1 .JD< I) .YO(  tl . 1  =  1 .5) 

INPT 

12 

a 

FORMAT (5(212. EI2.5> ) 

I  NET 

13 

iriioiinio.ic.3 

INPT 

14 

3 

DO  5  1=1.5 

INPT 

15 

IF<I0(L>>4.1.4 

INPT 

16 

4 

CONTINUE 

INPT 

17 

I  *  I P  <t  ) 

INPT 

18 

J*JO (L 1 

INPT 

19 

A ( I . Jt  =YD (L  > 

INPT 

20 

6 

CONTINUE 

INPT 

21 

GO  TO  1 

INPT 

22 

10 

CONTINUE 

INPT 

23 

RETURN 

INPT 

24 

END 

INPT 

25 

Figure  74.  Subroutine  INPT  Program  Listing 
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SUPROiT  INE  IN»Tl  (  A.nBm.NCM.nR.NC*  I»l 


INPT1  2 
INPT1  3 
INPT1  4 
INPT1  5 
INPTI  6 
INPTI  7 
INPTI  8 
INPT 1  9 
INPTI  10 
I MPT  1  11 
INPT1  1? 
INPT 1  13 
1NPT1  14 
I  MPT  1  15 
1MPT1  16 
I MPT  1  17 
1MPT1  10 
INPT 1  19 
INPT 1  20 


PURPOSE  -  TO  PFAI)  l  SA  4 A T R 1  x  DATA 
AMALI-TS  -  A  F  x’O'JaR  /  J  *  mAh£SH 
DATE  -BITTEN  -  l 97c 


TnF  H0NIE74FLL  INC 


MATRIX  DATA 

MAXIMUM  BUNKER  OF  ROWS 

MAXIMUM  MUMPER  OF  columns 
NUMRrB  OF  ROMS 

MUMHFfi  of  columns 

file  no  fob  in3ut  data  puffer 


DIMENSION  A ( NRM  .  NFw ) 
READ ( ( |A( I..M 
120  FORMAT (6010.3) 

RETUR  ' 

ENO 


Figure  75.  Subroutine  INPTI  Program  Listing 
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SUMRO  iT  INF  Of  BMF.IN.  Al  . AP.N1  .N?  .  IK* 

purpo  r  -  to  print  nE  pugg  in'-.  ‘'EsSage 

ANAL  ISIS  -AT  KONA&  /.IK  '.'A  "ESh  -  T  AF  lONFYrfFLL  INC 
OA  T  F  .lOITTtN  -  lR7r 

ARGUM,  NTS  l  1ST 

N  INPUT  rOSITlGN  OF  E  AF  CUT  I  ON 

A1  INPUT  NAME  OF  TUF  SUB°OUT  I  wf 

A?  INPUT  NAME  OF  THF  SUBROUTINE  (CONTINUED* 

N I  input  primary  overlay  no 

N?  INPUT  SECONDARY  OVERLAY  NO 

I«  INPUT  file  no  for  line  printer 

W»ITEd*l*l?'>»N«»l«»?**ll«N’ 

120  FORMAL  <//. l A. PTHFAECUl  ION  ENTERED  POSITION  .12.1A. 
i hhsu'Oout iNt  « p a<* « i a « i ph i m  Overlay  (.ii.im..ii.ih*i 
RF  TUP 
END 


DEBUG  ? 
DEBUG  3 
DEBUG  a 
DERUf.  5 
OEnUG  f> 
DERUG  7 
DEBUG  B 
DEBUG  R 
DEBUG  10 
DERUG  11 
DERUG  1? 
DEBUG  13 
DEBUG  14 
DERUG  15 
DEBUG  16 
DEBUG  17 
DEBUG  1H 
DEBUG  1 R 
DEBUG  20 


■■.jus Jk ' a  • 


Figure  76.  Subroutine  DEBUG  Program  Listing 


SUBROllT  INC  ERRM  <N*a1«A?«NI»n2.Iw> 


PURPOSE  -  TO  PRINT  ERROR  MESSEGE 
ANAL  ISIS  -  A  E  KONaR  /  J  *  MAHESH  - 
DATE  WRITTEN  -  1B7S 


THE  HONEYWELL  INC 


ARGUMENTS 

LIST 

N 

INPUT 

A1 

INPUT 

A2 

INPUT 

N1 

INPUT 

N2 

INPUT 

1W 

INPUT 

POSITION  OE  EXECUTION 

NAME  OE  THE  SUBROUTINE 

NAME  OE  THE  SUBROUTINE  ICONT1NUED) 

PRIMARY  OVERLAY  NO 

SECONDARY  OVERLAY  NO 

EILE  no  EOP  LINE  PRINTER 


120 


WRITE(IW«120)N.AI.A?»N1*N2 

FORMAT  < 1H1 •//« 1 X«2THERR0R  DETECTED 
himsurroutine  .?a4.ix.i?hin  overlay 


AT  POSITION  ,I?.1». 
<«  1 1  •  |H»«Il»IM11 


STOP  111 
END 


ERRM  3 
ERRM  4 
ERRM  5 
ERRM  6 
ERRM  7 
ERRM  B 
ERRM  B 
ERRM  10 
ERRM  1 1 
ERRM  12 
ERRM  13 
ERRM  14 
ERRM  15 
ERRM  16 
ERPN  17 
ERRM  IB 
ERRM  IB 
ERRM  20 


Figure  77.  Subroutine  ERRM  Program  Listing 


finnonnnnnnnnnnnfwinnnn 


SUPROfT INE 

OERRM ( M 1 ,M5 

•M3.M4.MSI.MS2.MS3.MS4.NI .N2.AI.A2.IM) 

DERRM 

2 

DERRM 

3 

PURPOSf  - 

TO  PRINT  ERROR  MESScOE  MHEN  DIMENSIONS  FOR 

DERRM 

4 

SCRATCH  arrays  is  not 

SUFFICIENT 

DERRM 

5 

ANAL  I  SIS  - 

A  F  KONaR  / 

J  K  mAhESH  -  THE  MONEYmFLL  INC 

DERRM 

6 

DATE  WRITTEN  -  lWs 

DERRM 

7 

DERRM 

8 

arguments 

LIST 

DERRM 

9 

MI 

INPUT 

ACTUAL  DIMENSION  FOR  SCRATCH  ARRAY 

SI 

DERRM 

10 

M2 

INPUT 

ACTUAL  DIMENSION  FOR  SCRATCH  ARRAY 

S2 

DERRM 

11 

M3 

INPUT 

ACTUAL  DIMENSION  FOR  SCRATCH  ARRAY 

S3 

DERRM 

12 

M4 

INPUT 

ACTUAL  DIMENSION  for  scratch  array 

S4 

DERRM 

13 

MSI 

INPUT 

maximum  dimension  for  scratch  array 

SI 

DERRM 

14 

MS’ 

INPUT 

MAXIMUM  DIMENSION  FOR  SCRATCH  ARRAY 

S2 

DERRM 

15 

MS’ 

INPUT 

MAXIMUM  DIMENSION  FOR  SCRATCH  ARRAY 

S3 

DERRM 

16 

MS4 

INPUT 

MAXIMUM  DIMENSION  FOR  SCRATCH  ARRAY 

S4 

DERRM 

17 

N1 

INPUT 

PRIMARY  overlay  NO 

DERRM 

18 

N2 

INPUT 

SECONDARY  overlay  no 

DERRM 

19 

A  1 

INPUT 

NAME  OF  THE  SUBROUTINE 

DERRM 

20 

A2 

INPUT 

NAME  OF  THE  SUBROUTINE  (CONTINUED) 

DERRM 

21 

IM 

INPUT 

FILE  NO  FOR  LINE  PRINTER 

DERRM 

22 

DERRM 

23 

DIMENSION 

M ( 4 ) .MS (4 1 

DERRM 

24 

M 1 1 1 *m 1  S 

M(2)*M2  %  M ( 3 1 *M3  S  M < 4 1 »M4 

DERRM 

25 

MS  <  1 ) *MS1 

9  MS (2) *“S2 

f  MSm»MS3  S  MS  ( 4 )  *M54 

DERRM 

26 

WRITE(IM.240)Nl.N2,Al.A2  DERRM  27 

240  FORMAT (1H1.//.1X • 2ahO I MENS I ON  ERROR  IN  OVERLAY  I  *  1 1  *  IN. » 1 1 . 1H) •  DERRM  28 

I13HIN  SUBROUT  INF. 2X.2A4I  DERRM  29 

DO  26'  1*1.4  DERRM  30 

KR1TE(1M.250H.MS(|».m(!»  DERRM  31 

250  FORMAT!//. IX. IShDImFNsION  FOR  S. II .2X.7MACTUAL*. 15. 2X.  DERRM  32 

IRMREOniREOa.IS)  DERRM  33 

260  CONTINUE  DERRM  34 

STOP  111  DERRM  35 

END  DERRM  36 


Figure  78.  Subroutine  DERRM  Program  Listing 
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SUHPOiTINE  0£»RM$(m1 

•  M’.Ml,  44.MS1  *MS?.MSj,MS4.Nl  «N?.Al  *A2*  I  Ml 

DCRRMS  2 

c 

DERRMS  3 

c 

PURPOSE  -  TO 

POINT  FPPOO  MESSff.E  WHEN  SYSTEM  DIMFNSION 

OERPHS  4 

c 

ARP  N'iT  SUFFICIENT 

DERRMS  S 

c 

ANAL  r;  IS  -  A 

f  kOnaF 

/  J  K  mAhESM  -  THE  nDNFTWrLL  INC 

DERRMS  6 

c 

DATE  •' R  I  T  T  F N 

-  l<37= 

DERRMS  7 

c 

DERRMS  rt 

c 

AROUM^NTS  LI 

ST 

DERRMS  9 

c 

Ml 

INPUT 

ACTUAL  DIMENSION 

DERRMS  1 i) 

c 

M? 

INPUT 

ACTUAL  DIMENSION 

DERRMS 11 

c 

M3 

INPUT 

ACTUAL  D1MFNSIDN 

DERRMS 1 2 

c 

M4 

INPUT 

ACTUAL  0 1 Mf  NS  I 3N 

DERRMS  13 

c 

MS' 

INPUT 

MAXIMUM  DIMENSION 

DERRMS 1 4 

c 

MS’ 

INPUT 

MAXIMUM  DIMENSION 

DERRMS  1 5 

c 

MS’* 

INPUT 

MAXIMUM  DIMENSION 

DERRMS 1 6 

c 

MS* 

INPUT 

MAXIMUM  DIMENSION 

DERRMS  1  7 

c 

N1 

INPUT 

PRIMARY  OVERLAY  NO 

DERRMS 1 8 

c 

N2 

INPUT 

SECONDARY  OVERLAY  NO 

DERRMS 1 R 

c 

A  1 

input 

NAME  OX  THE  SUBROUTINE 

OERRMS20 

c 

A3 

input 

NAME  u»  THE  SUBROUTINE  (CONTINUED) 

DERRMS2 1 

c 

!W 

INPUT 

FILE  NO  FOP  LINE  PRINTER 

DERRMS22 

c 

DEPRMS23 

DIMENSION  M<41 *MS<4> 

•  6(4) 

DERRMS24 

DATA  A/4HNXM 

,4hnpm 

«4HNUM  . 4nN YM  / 

DERRMS25 

%  M(2l*M2  « 

M  <  3) *M3  S  M 1 4 | * M4 

DERRMS26 

MS(1I=MS1  t 

MS  (  ?  1  *MS?  «  MSC»>=MS3  «  Ms(4»=M54 

DERRMS27 

WRITE  (  IP*2<*i)>Nl  .N2.AI  .  A? 

DERRMS20 

240  rORMAT(lHl.//.tX.?PHD!MFNSION  ERROR  I N  OVERLAY  ( .  11  *  1 H * . 1 1 . 1 H ) . 

DERRMS2R 

1I3MIN  SUBROUTINE*?** 

PA4) 

DERPMS30 

00  26  1*1*4 

DERRMS31 

WRITE<I**£50)A(II.mS(||,m<I) 

DERRMS32 

2S0  eormam//*1x,iohoimension 

10HPEO'iIREO*.lS> 

260  CONTI  iUE 


*A4,2A*7mACTIJAL  =  *  IS*  ’X. 


STOP 

END 


I  1  1 


DERRMS33 

DERRMS34 

DERRMS35 

0EPRMS36 

DERRMS37 


Figure  79.  Subroutine  DERRMS  Program  Listing 
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SUBRO-H  1NE  SHIFT  INN  .  VN .  Of  S  .  UN I  T  ,  NNN.  V  NN.DESN.  UN  I  TN  <N<  NM  ,  I W »  IPRI NT ) SHIFT 

SHIFT 
SHIFT 
SHIFT 


PURPOSE  -  TO  SHIFT  CONTENTS  0f  0C0  ARRAYS  NN. VN, OES .UN l T 
INTO  *'f*  ARRAYS  NNN.VNN.UESN.  INITN 

ANAL  IMS  -  A  F  KONAR  /  J  K  MA-ESH  -  THE  HONEYWELL  INC 
OATE  -iR  I  T  TEN  -  197  = 


SUBPROGRAMS  calleo 
DE°Uf» 


ARGUMENTS  list 


DIMENSION  NN(NM)  ,VNI7‘M.?>  , OFS <NH . 1 0 > ♦ JN I T  (NM.4I 
DIMENSION  NNNINMI .VNN(NM.P)  .  UESN  (  NM  *10) .UN  I TN ( MM  « (> ) 

if(iprint.eq.6)Call  ofbug(1.ahshif.«.mt  .s.o. rm 

DO  l  A  .;,  I  *  I « N 
NNN 1 1 t  *NN ( I ) 

DO  12,i  J*1 .2 
120  VNN ( I • J ) * VN {  I  .  J  I 
00  13  J*|.10 

130  DESN ( » « J) *OES  <  I  •  J> 

00  14-  J* 1 , 4 
140  UNITNI I . J!  -UNIT ( I . J) 

IF(IP«INT.EQ.G1CAll  OF BUG (2«4hSmIF,4HT  .5.0.  I M ) 

RETURN 

END 


Figure  80.  Subroutine  SHIFT  Program  Listing 


SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT 
SHIFT  11 
SHIFT  12 


2 

3 

4 

5 

6 

7 

8 
9 

10 


NN 

INPUT 

OLD  NUMBER  ARRAY 

SHIFT 

13 

VN 

INPUT 

OLD  VARIABLE  NAME  ARRAY 

SHIFT 

14 

DEr. 

INPUT 

OLD  DESCRIPTION  ARRAY 

SHIFT 

15 

UN !  T 

INPUT 

OLD  UNIT  ARPAY 

SHIFT 

16 

NN 

OUTPUT 

NEW  NUMBER  ARRAY 

SHIFT 

17 

VN-' 

OUTPUT 

NEW  VARIABLE  NAME  ARRAY 

SHIFT 

18 

DESN 

OUTPUT 

NEW  DESCRIPTION  AHRAY 

SHIFT 

19 

UNtTN 

OUTPUT 

NEW  UNIT  ARRAY 

SHIFT 

20 

N 

INPUT 

NUMBER  OF  system  variables 

SHIFT 

21 

NM 

INPUT 

MAX  NO  OF  SYSTEM  VARIABLES 

SHIFT 

22 

IW 

INPUT 

FILE  NO  FOR  LINE  PRINTEo 

SHIFT 

23 

IPHINT 

INPUT 

PRINT  CONTROL  FLAG 

SHIFT 

24 

SHIFT  25 
SHIFT  26 
SHIFT  27 

shift  2a 

SHIFT  29 
SHIFT  30 
SHIFT  31 
SHIFT  32 
SHIFT  33 
SHIFT  34 
SHIFT  35 
shift  36 
SHIFT  37 
SHIFT  38 
SHIFT  39 


..J  . 


a  . .  .  . 


svSMaSia. 
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SUBROUTINE  TDINVRIlSOL 

•  IOSOl.NR.NC.A.MRA.KWA.OET) 

TDINVR  2 

c 

TOINVR  3 

c 

PURPOSE  -  TO  INVERT  A  NONSlNGllLAR  MATRIX  OP 

TOINVR  4 

c 

TO  SOLVE  LINEAR  EQUATIONS 

TOINVR  5 

c 

TDINVR  6 

c 

ARGUMENTS  LIST 

TOINVR  7 

c 

IS<U 

TOINvR  SOLUTION  INDICATOR 

TDINVR  8 

c 

I SOL 1 1  IE  INVERSE  POUND  OR 

TOINVR  9 

c 

EQUATIONS  SOLVED 

T0INVR10 

c 

10  SOL 

deteominant  overelov  indicator 

T0INVR1 1 

c 

IDSOL* 1  IE  DETERMINANT  CALCULATION 

TOINVR12 

c 

DIO  NOT  OVERELO* 

TOINVR13 

c 

NR 

number  oe  ROWS 

TOINVR 14 

c 

NC 

NUMBER  OE  COLUMNS 

T0INVR15 

c 

A 

MATRIX  TO  BE  INVERTED  OR  CONTAINING 

T0INVR16 

c 

the  linear  EQUATION  COEEEICIENTS 

TOINVR 17 

c 

MR  1 

MAXIMUM  NUMBER  oe  BOVS  OE  A 

TDINVR1B 

c 

KVA 

SCRATCH  ARRAY  VMEN  INVERTING 

T0INVR19 

c 

OET 

VALUE  OE  THE  determinant 

TOINVR20 

c 

TOINVR21 

DIMENSION  All) *K V A ( 1 ) 

T0INVR22 

IRxNR 

TOINVR23 

ISOL  =1 

TDINVR24 

I0S0L=1 

T0INVR25 

IE (NR)  61.61.11 

TDINVR26 

II  IE (IR-MRA1 IP. IP. 61 

T0INVR2'7 

12  IC»I AhS (NC) 

T0INVR28 

IE(IC-IR*  11.14,14 

T0INVR29 

13  IC«|R 

T0INVR30 

14  IRMPx | 

T0INVR31 

jRMPxmRA 

T0INVR32 

KBMP*  )RMP. I BMP 

TDINVR33 

NES*IP«JBMP 

T0INVR34 

NET* 1 C* JBMP 

T0INVR3S 

IE (NC )  IS. 61. 16 

T0INVR36 

15  MOIV*  iBMP ♦ 1 

T0INVR37 

IR!C*?B-IC 

T0INVR38 

GO  TO  17 

T0INVR39 

16  MDIV*| 

TOINVR40 

|7  MAO  =«DIV 

TDINVR41 

MSER* l 

T0INVR42 

KSER=TR 

T0INVR43 

M2  *1 

T01NVR44 

0ET*1.0 

TOINVR4S 

IB  PIV-0.0 

T0INVR46 

I«MSE« 

T0INVR47 

19  IE(I-kSER1  20. 

20.23 

T0INVR4B 

20  IE(ABs(A(I> )-PTV)22»22 

.21 

TOINVR49 

21  PIV«AhS(A(I) 1 

T0INVR50 

IP.] 

TOINVRS1 

22  I *1 • IRMP 

T0INVR52 

GO  TO  19 

T01NVR53 

23  IE (PI )M  24.62.24 

TDINVR54 

24  IE (NC )  26.25.25 

T0INVR55 

25  I«IP-( (IP-1) /JBMP) *JBMP 

TOINVR56 

J«MSER-( (MSER-I l/JBMP) 

•JBMP 

TOINVRS7 

JJ*MSPR/KBMP*1 

T0INVR58 

II»JJ*(IP-MSER) 

T0INVR59 

KVA  ( J  It  «II 

T0INVR60 

GO  TO  27 

T0INVR61 

26  I«IP 

T0INVR62 

J-MSER 

T0INVR63 

27  IE(IP-MSER»  61.31. Jfl 

TDINVR64 

Figure  81.  Subroutine  TDINVR  Program  Listing 
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28 

IF  ( J-  jfT  )  ?9»34»  3 11 

TDINVR65 

29 

PSTO=4 ( J ) 

T0INVR66 

TQINVR67 

At  J) *“STQ 

TDINVR68 

1«I»J‘1NP 

T0INVR69 

J«J. JhMP 

TDINVR70 

f»0  TO  2d 

TDINVR7 l 

30 

OCT*-nrT 

T0INVR72 

31 

PSTO-S (MStR) 

TOINVR73 

oet*oft»psto 

TDINVR74 

35 

PSTO= 1 . 6/PSTO 

TDINVR75 

a (Mse^t  *i .o 

TDINVR76 

I  »MD  I  v 

TDINVR77 

36 

IF(I-mET)  3707.19 

T0INVR78 

37 

At  I )  Ml  I  l  *PSTO 

T0INVR79 

1*1  .JmtP 

TDINVR80 

GO  TO  36 

T0INVRB1 

39 

IFtMZ-*SER>  40.40.145 

TOINVR82 

40 

IFtMZ-MSERl  41.44.41 

TD1NVR83 

41 

I»MAO 

T0INVR84 

J»MD1 V 

T0INVR85 

PSTO-A (MZI 

TDINVRBb 

IF(PSTO)  142.44,14’ 

TDINWP87 

142 

A (MZI *0.0 

TDINVRSB 

42 

IF ( J-nFT)  43.43,44 

TDINVR89 

43 

A  C I )  »t  (  II-A(JI*PSTO 

TOINVR90 

J»J, JRMP 

TDINVR91 

I « I » J  IMP 

TDINVR92 

GO  TO  42 

TDINVR93 

44 

mao«mao*ibmp 

TDINVR94 

MZ-MZ.IBMP 

TDINVR95 

GO  TO  39 

T0INVR96 

145 

KSER-*SER,JBMP 

TDINVR97 

IFtKSFR-NESI  46,46,53 

T0INVR9B 

46 

MSER»mSER*KBMp 

T0INVR99 

IFtNCt  48.47.47 

TDINV100 

47 

MOIV-MOIV* I BMP 

TOINVIOl 

MZ-  ( (M5£R“ 1 1 /JRMP 1 « JBMP, 1 

TDINV102 

MAO-1 

TDINV103 

GO  TO  52 

TOINV104 

48 

MOIV-mOIV.KBMP 

TDINVlOS 

IF  t IB IC 1  50,49,50 

TDINV106 

49 

MZ»MSFR*IBMP 

TOINV107 

GO  TO  51 

TDINVlOS 

50 

MZ» <  < MSER- 1 1 /JBMP )• JBMP ♦ 1 

T0INV109 

51 

NAD-M7* JBMP 

TDINV110 

52 

GO  TO  18 

TD'INVl  1 1 

53 

IFtNCt  65.54,54 

TDINVU2 

54 

JRafR 

TDINV113 

55 

IF ( JR i  61.65,56 

T0INV114 

56 

IF (KM A ( JR) • JR)  61.60,57 

T0INV1 IS 

57 

K» ( JR- I I *JBMP 

TDINV116 

J»K*IB 

TDINV1 17 

L-(KM*(JR)“I ) *JBMP. IR 

TDINV1 18 

58 

IF(J-K)  61,60,59 

TDINV1 19 

59 

PSTO«A(U 

TDINV120 

AtU-At  Jl 

T0INV121 

A(J)»PSTO 

T0INV122 

J-J-IMMP 

TDINV123 

L-L-IRMP 

T0INV124 

GO  TO  58 

T01NV12S 

60 

JR-JR-1 

T0INV126 

GO  TO  55 

T0INV127 

61 

I SOL- 3 

T0INV128 

GO  TO  65 

T0INV129 

62 

DET-0.0 

TDINV130 

Figure  81.  Subroutine  TDINVR  Program  Listing  (Continued) 
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TO INV 1 31 
TDINV1 32 
TDINV133 
TDINV 1 34 
TDINV 135 
TDINV136 
TDINVl 37 


ISOL-2 
IDSOL*l 
60  TO  65 
63  ISOL  »  2 
IOSOL  ■ 
65  RETURN 
END 


Subroutine  TDINVR  Program  Listing  (Concluded) 


fes 


OVERLAY  (0,0) 


LD 

UJ 

2: 

uJ 

m 

Q- 

H- 

__ j 
< 

O 

— J 

cn 

h~ 

CL 

O 

C£ 

o 

UJ 

r) 

r- 

a: 

a: 

UJ 

Q_ 

:c 

0 

»— « 

O' 

0 

M 

CM 

<s> 

Cl. 

CL 

> 

f — * 

cl 

Of 

ct: 

£ 

0 

0 

0 

a: 

O 

a. 

*- 

hH 

►— < 

UJ 

h- 

s: 

r>  o  o  o  n  o  r>  o  o  o  r>  o  oooooonooonnonorioo 


OVERLaY<KON?«0«OI 

program  ma in <minput. input, t&pf7«m input, tape4*input, 

lQDATA,OUTPUT»TAPEa=0DATA«TABER*0UTPUT*SCRTCH»TAPE5“SCRTCH» 
?FDAT  A ,00 AT  A,TAP£l=EOATA«T  AOF6  =  Di)AT  A*S0STP«TAPE?*5DSTP) 

PURPOSE  -  TO  SET  UP  MAXIMUM  DIMENSIONS 
ANAL  IMS  -  A  F  KONAR  /  J  K  mAHFSH  -  THE  HONFYMfLL  INC 


DATE  WRITTEN  -  I97S 

SUBPROGRAMS  CAlLEO 
K0*>G? 

LABELLED  common  list 


NX  t 

MAXIMUM 

NR" 

MAXIMUM 

NU" 

MAX IMUM 

C0OE 

PROGRAM 

MSI 

MAXIMUM 

MS/ 

MAXIMUM 

MSI 

MAXIMUM 

MS*. 

MAXIMUM 

number  of  states 
number  of  outputs 
number  of  INPUTS 
CODE  MORD  <DIAK,FFOC*LSA» 
DIMENSION  FOR  SCRATCH  ARRAY  SI 
DIMENSION  FOR  SCRATCH  ARRAY  S2 
DIMENSION  FOR  SCRATCH  ARRAY  S3 
DIMENSION  FOR  SCRATCH  ARRAY  S4 


COMMON  /INF/  NXM, NRM.NUM, CODE, MSI »MS2*MS3,NS4 

MAXIMUM  SYSTEM  OIMFNSfONS 

NXM*5 '  %  NRM*70  S  MUMsPO 

MAXIMUM  SCRATCH  ARPAY  DIMENSIONS 

MS1*0«S00  S  MS5*! 7000  S  MS3=0O00l  *  MSArQOOOl 

NOTE  SCRATCH  ARRAY  DIMENSIONS  IN  PROGRAM  DATAK 

SHOULO  BE  CHANGED 

CALL  SONPACT  ORGANIZING  SUBROUTINE 

CALL  <0RG2 

STOP 

ENO 


MAIN  2 
MAIN  3 
MAIN  4 
MAIN  S 
MAIN  6 
MAIN  7 
MAIN  a 
MAIN  9 
MAIN  10 
MAIN  11 
MAIN  12 
MAIN  13 
MAIN  U 
MAIN  IS 
MAIN  16 
MAIN  17 
MAIN  18 
MAIN  19 
MAIN  20 
MAIN  21 
MAIN  22 
MAIN  23 
MAIN  24 
MAIN  25 
MAIN  26 
MAIN  27 
MAIN  26 
MAIN  29 
MAIN  30 
MAIN  31 
MAIN  32 
MAIN  33 
MAIN  34 
MAIN  35 
MAIN  36 
MAIN  37 
MAIN  36 
MAIN  39 
MAIN  40 
MAIN  41 


Figure  83,  Program  MAIN  Program  Listing 
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OVERLAY  (K0N2* 1.0) 

DIAK 

2 

PROGRAM  diak 

01  AK 

3 

OOUBLY-ITfRATIVE  ALGORITHM  FOR  SOLVING  ALGEBRAIC  riccati  equation 

DIAK 

4 

this  program  compute*  quadratic  controllers  ano/or  computes 

COVARIANDIAK 

5 

time  RESPONSES  TOP  SYSTEMS  MO0ELED  AS 

01  AK 

6 

01  AK 

7 

xdot  *  r»x  ♦  Gi«u  ♦  g?«eta 

01  AK 

8 

AND 

DIAK 

9 

P  s  M-X  ♦  D»U 

OIAK 

10 

WITH 

DIAK 

11 

J  *  E(RA*0«RI 

OIAK 

12 

OIAK 

13 

DIMENSION  r <40 .401 ,GI (40*61 .G? <40 . 2) • A < 40 .40 > • «N (40*40 ) *E (40*40) 

OIAK 

14 

DIMENSION  0(40*40).  MR(40*4I)) «EP(40*40) *P(40*4n) *HI40*40> t 

0(40.6) 

OIAK 

IS 

DIMENSION  AK (6.401 .PI (40*40) *000(6*6) .KWA(40) .W  16.40) .Wl (6 

.48) 

OIAK 

16 

DIMENSION  00(40*40) «RR (90) • AM (40*40) »BK (6.4Q) . X (40 ) *DX (40) 

*0X1 (40)DIAK 

17 

DIMENSION  XI (40*2) • XLDXL (40*2) *GN ( 40 • 2) *GS ( 40. ?) *R (8000) « IPLR (80) 

OIAK 

18 

DIMENSION  IT1TL(80) .TMAX180) *YMIN(B0) *CL (2. I ) «SCAL (80) *NEWY<80> 

DIAK 

19 

DIMENSION  NORO(40) «0R (40.40 1 . IUN IT (80) 

OIAK 

20 

COMMON  A.E.O. AN.WR.OR.ER.P.PI 

DIAK 

21 

EQUIVALENCE  <r ( 1 ) *P ( 1 )) . (H < 1 » ,PI ( 1 ) ) » ( AM ( I ) .EP ( 1 ) ) 

DIAK 

22 

equivalence  iPit).r(H) 

DIAK 

23 

DIMENSIONS  Or  THE  ABOVE  ARRAYS  ARE  DEFINED  BELOW.  CHANGE  BOTH  SIMULTOIAK 

24 

SEE  DOCUMENT  AT  ION  FOR  DEFINITIONS  OF  ARRAY  DIMENSIONS 

OIAK 

25 

MX»NX 

OIAK 

26 

MR>NR 

OIAK 

27 

MU>Nl| 

OIAK 

2B 

MN>NU 

OIAK 

29 

MXR>NOP 

OIAK 

30 

MPOINXNOP  *  1)«(T/ST) 

OIAK 

31 

MR«40 

OIAK 

32 

MXR-8C 

OIAK 

33 

MX-40 

OIAK 

34 

MU-6 

OIAK 

35 

MN-2 

OIAK 

36 

MP01N-8000 

OIAK 

37 

CONVERGENCE  TEST  FACTOR 

OIAK 

38 

EE-0.001 

OIAK 

39 

ITERATION  COUNTER 

OIAK 

40 

RUN  COUNTER 

OIAK 

41 

I RUN- I 

OIAK 

42 

READ  AND  PRINT  ID 

OIAK 

43 

REA0(S*1274)  I DATE .NAME  I .NAME? 

OIAK 

44 

1274  FORMAT (3A10) 

OIAK 

45 

WRITE (9* 1275)  I0ATE*NAME1 .NAME2 

OIAK 

46 

275  F0RMAT(|H1*7X«13HT0DAYAS  DATE  .A10.5X. 16H IDENTIFICATION  . 

2A10//1 

OIAK 

47 

READ  NUMBER  OF  VARIABLES  BEING  PLOTTED 

OIAK 

48 

RE AD <5, 28)  NOP 

DIAK 

49 

28  FORMAT (4012) 

OIAK 

50 

IF  NOP  «  0.  SKIP  TO  STATEMENT  70 

OIAK 

51 

IF(NOP.EO.O)  GO  TO  70 

DIAK 

52 

READ  PLOTTING  PARAMETERS  -  THEY  ARE  FIXED  FOR  ALL  RUNS 

OIAK 

5> 

IPLR  «  ARRAY  OF  PLOTTING  VARIABLE  NOS.  -  REAO  IN  ORDER 

OIAK 

54 

ITITL  ■  CORRESPONDING  ARRAY  OF  LABELS 

OIAK 

55 

I UNI T  -  CORRESPONDING  ARRAY  OF  UNI?  LABELS 

OIAK 

56 

YMAX.YMIN  «  CORRESPONDING  ARRAYS  OF  DESIGNATED  MAX  ANO  MIN  VALUESDIAK 

57 

SCAL  >  CORRESPONDING  ARRAY  OF  SCALE  FACTORS 

OIAK 

58 

READ(B*  1272)  ( ( IPLR  ( I )  .  IT  ITL  <  l>  .  IUNI T  ( I  >  .  YMIN  (  T  >  .  YMAA !  I  >  .SCAL  <I))DIAK 

59 

1*I>1*  NOP ) 

OIAK 

60 

272  FORMAT (I2*2X«A10.2X«AI0»2X*G1 1.3* 2X*GI1.3*2X*6| 1.3) 

OIAK 

61 

DEFINE  PLOTTING  SCALES  -  FIXED  FOR  ALL  RUNS 

OIAK 

62 

IF  YMIN  ANO  YMAX  aRE  0*  USE  COMPUTED  MAX  ANO  MIN  (NEWY-1) 

OIAK 

63 

IF  SCAL  ■  0.  USE  SCALE  FACTOR  OF  1 

DIAK 

64 

Figure  84.  Program  DIAK  Program  Listing 
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o  o ou  u  u 


00  1  f  * i .nop  o 

nemv<d>«  o 

ir (YMlNt I) .EO.O..ANO.VM»X ( n .EO.O. >  NEWY ( I »  « 1  D 

If (SC*L  (I).EO.O.)  SCAL  0 

1  CONTINUE  0 

BEAD  ANO  PRINT  PLOTTING  TIME  PARAMETERS  -  FIXED  FOR  ALL  RUNS  D 

T  ■  TOTAL  PLOTTING  TIME  D 

OT  ■  SAMPLING  interval  D 

ST  -  PLOTTING  sampling  interval  D 

T1  ■  FIRST  DELAY  IN  GUST  PROFILE  D 

T2  «  SECOND  DELAY  IN  GUST  PROFILE  D 

RE ADIS. 1278)  T.DT.sT.Tl.T?  D 

1278  FORMAT I5G12.*)  D 

c  print  plotting  parameters  d 

WRITE (9* 1279)  T ,DT ,$T , T 1 . T2  D 

1279  FORMAT I1H8/7X»31H  TIME  RESPONSES  PLOTTING  TIME  -.G12.*/22X. 18H  SAND 

I RLE  INTERVAL  ».G12.*/22X.?7h  PLOTTING  SAMPLE  INTERVAL  a,G12.*/  D 
222X. 19H  FIRST  DELAY  TIME  atfiI?.4/?2X . 20H  SECOND  DELAY  TIME  -.612.40 
3//>  D 

WRITE  (9*  1285)  HIpLR<J>*ITITL(I)»IUNIT(I)*YMIN(I)  «  YMAX  1 1 )  .SCAL  (DO 
1 I • 1 ■ 1 « NOP )  0 

1285  FORMAT (7Xtl8HPL0TTlNG  V AR I  ABLE S//?X » 66MRE SPONSF  NUMBER  RESPONSE  VD 
1ARIABLE  RESPONSE  UNITS  MIN  SCALE  max  SCALE  SCALE  FACTOR// <2X.  0 
2I10.9x.AI0.9X.A18.3X.Gll . 3.2X.G1 1 .3. 3X.G1 1 .3) )  D 

C  READ  AND  PRINT  MAX  NO.  OF  INNER  AND  OUTER  LOOP  ITERATIONS  D 

78  READ (S.28)  IMAX. ITcR* ITERO  0 

WRITE (9**882) I MAX. ITER. ITERO  0 

*882  FORMAT (////7X.37H  MAX  NUMBER  OF  INNER-LOO»  ITERATIONS  I3.37H  MAX  NO 
1UMBER  OF  OUTER-LOOP  ITERATIONS  I3/7X.67H  MAX  NUMBER  OF  ITERATIONS  D 
20N  ELIMINATING  CONTROL  SURFACE  FEEDBACKS  13//)  0 

DEFINITION  OF  PROGRAM  OPTIONS  t* 

INPD-1  COMPLETELY  NEW  OATA  D 

INPO-2  CHANGE  SELECTEO  OUAORATIC  WEIGHTS  ONLY  -  USE  SOME  GAINS  IN  SO 

INPO-3  CHANGE  SELECTED  OUAORATIC  WEIGHTS  ONLY  WITH  OPTION  FOR  NEW  GAD 

INPO-*  CHANGE  SELECTED  OATA  0 

INPO-5  CHANGE  SELECTEO  OATA  IN  MEASUREMENT  MATRIX.  QUADRATIC  WElGHTSD 

option  FOR  NEW  GAINS  0 

INPKal  NEW  INPUT  GAINS  0 

INPK-2  NEW  STARTING  ROUTINE  GAINS  0 

INPK-3  USE  GAINS  IN  STORAGE  0 

INPKa*  USE  INPUT  GAINS  IN  STORAGE  D 

NCONTaG  DONAT  COMPUTE  OPTIMAL  GAINS  -  USE  INPUT  GAINS  AND  OATA  IN  COO 


AND  7IME  RESPONSE  ANALYSIS  ONLY  0 

NCONTal  COMPUTE  OPTIMAL  GAINS  D 

NC0NTa2  DO  AUTOMATIC  SELECTION  OF  0  ON  CONTROL  RATES  0 

SEE  SUBROUTINE  TIMER  FOR  PLOTTING  OPTIONS  USING  NPLOT.  NPR1N,  NSTEP.  0 
NOCOVal  NO  COVARIANCE  ANALYSIS  D 

NOCOV-2  COVARIANCE  ANALYSIS  0 

NOCOV-3  SKIP  CORRELATION  ANALYSIS  D 

READ  AND  PRINT  PROGRAM  OPTIONS  0 

RE AO <5. 28)  NOCOV. NSTEP.NRAND.NPRIN  .N°LOT  D 

RE AO <5. 28)  INPK  D 

INPD-1  0 

READ (5.28)  NCONT  0 

WRITE (9.37)  INPD. INPK. NCONT. NOCOV.NSTEP.NRANOtNPRIN  .NPLOT  D 

37  FORMAT (IH1/7X.23HNEW  PROBLEM  WITH  INPD  a.  I3.2X.6HINPK  a.I3.2X.  0 

I7HNC0NT  I 3/7X . 7HN0C0V  -.I3/7X.7HNSTEP  ■» I3.2X.7HNRAND  ».I3/7X.  0 

27HNPRIN  ■.  I3.2X.7HNPL0T  -.13//)  0 

1218  CONTINUE  0 

C  READ  FLIGHT  CONDITION  ID  0 

READ (5. 1278) IFLT  0 

1278  FORMAT (A18)  0 

c  print  flight  condition  id  and  run  no.  o 

WRITE <9. 1271 )  IFLT.  IRUN  D 

1271  FORMAT <1 HI /7X.1BH  FLIGHT  CONDITION  A10.5X.3HRUN. 13)  D 

C  READ  AND  PRINT  SYSTEM  PARAMFTFRS  D 

Figure  84.  Program  DLAK  Program  Listing  (Continued) 
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72 

AK 

73 

AK 

7* 

AK 

75 

AK 

76 

AK 

77 

AK 

78 

AK 

79 

AK 

80 

AK 

81 

AK 

82 

AK 

83 

AK 

8* 

AK 

85 

AK 

86 

AK 

87 

AK 

88 

AK 

89 

AK 

90 

AK 

91 

AK 

92 

AK 

93 

AK 

9* 

AK 

95 

AK 

96 

AK 

97 

AK 

98 

AK 

99 

AK 

100 

AK 

101 

AK 

102 

AK 

103 

AK 

18* 

AK 

105 

AK 

106 

AK 

107 

AK 
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AK 

109 

AK 

110 

AK 

111 

AK 

112 

AK 

113 

AK 

11* 

AK 

115 

AK 
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AK 

117 

AK 

118 

AK 

119 

AK 

120 

AK 

121 

AK 

122 

AK 

123 

AK 

12* 

AK 
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AK 
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AK 
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AK 
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AK 
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AK 

130 
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c 

NX  *  NO.  OF  STATES 

DIAK 

U1 

c 

NR  *  NO.  OF  RESPONSES 

DIAK 

132 

c 

NU  «  NO.  OF  CONTROLS 

DIAK 

133 

c 

NN  *  NO.  OF  DISTURBANCE  INPUTS 

DIAK 

134 

C  NSCRR  *  RESPONSE  STARTING  CONTROL  RATE  RESPONSES 

DIAK 

13S 

c  parameters  fob  plotting 

OIAK 

136 

c 

NF  *  NO.  OF  FEEDBACK  STATES  ■  NX  -  NO.  OF  DISTURBANCE 

STATES  (NOT 

DIAK 

137 

C 

NG  *  NO.  OF  GUST  INPUTS 

DIAK 

138 

c 

NCS  *  NO.  OF  COMMAND  INPUTS  *  NO.  OF  COMMAND  STATES 

DIAK 

138 

c 

NGLG  *  NO.  OF  GUST  LIFT  GROWTH  STATES 

DIAK 

140 

READ (S. 28)  NX  *NR  »Nu .NN  .NF  .NG.NCS .NGLG. NSCRR 

OIAK 

141 

WRITE (9.4003)  NX . NR. NU. NN.NF, NG.NCS* NGLG .NSCRR 

DIAK 

142 

<•003 

FORMAT I//7X.18H  ORDER  OF  STSTEM  *I3/7X.?2h  NUMBER  OF  RESPONSES  M3DIAK 

143 

1/7X.21M  NUMBER  OF  CONTROLS  =13/7X.3|h  NUMRER  OF  DISTURBANCE  INPUTSDIAK 

14* 

2  * ♦  I 3/BX .27HNUMRER  OF  FEEDBACK  STATES  «.I3/7X.?4H  NUMBER  OF  GUST 

IDIAK 

145 

3NPUTS  *  *  1 3/7X  «  27H  NUMBER  OF  COMMANO  STATES  ■•!3/7Xt36H 

NUMBER  OF 

GDI  AK 

146 

4UST  LIFT  GROWTH  STATES  *,I3/7x.43h  CONTROL  RATF  RESPONSES  START  WIDIAK 

147 

5TM  REsPONSEI 3// ) 

OIAK 

148 

C  NC 

IS  THF  NUMBER  of  UPPER  triangular  elements  in  p 

DIAK 

149 

NC*  (Nx* (NX* 1 ) )/? 

OIAK 

ISO 

C 

DIAK 

1S1 

C  ZERO  ARRAYS 

DIAK 

152 

C 

OIAK 

153 

C 

RIGHT  HAND  PARAMETERS  DEFINED  BELOW 

DIAK 

154 

DO  8020  1*1. MX 

DIAK 

155 

00  8013  J* 1 .MX 

DIAK 

156 

F  <I.J>*0. 

DIAK 

157 

A  « I . J 1  *0 . 

DIAK 

158 

AN  <1.J)*0. 

DIAK 

159 

E  (I.J)*0. 

DIAK 

160 

EP  <I.J)*0. 

DIAK 

161 

PI  (I.J>«0. 

OIAK 

162 

AM  ( 1  ,  It  *0  . 

DIAK 

163 

8013 

CONTINUE 

DIAK 

164 

DO  80 | A  Jal.NU 

DIAK 

165 

8014 

gki,  n»o. 

DIAK 

166 

DO  8015  J* 1 . NN 

DIAK 

167 

MU.  n*0. 

DIAK 

168 

CL ( J. 1) *0. 

DIAK 

169 

8015 

G2  ( I .  D*0. 

DIAK 

170 

DO  8016  J*1 .2 

DIAK 

171 

8016 

XLDXL ( I . J) *0. 

DIAK 

172 

8020 

CONTINUE 

DIAK 

173 

DO  30*0  1*1. NR 

DIAK 

174 

DO  30*1  J* 1 .NR 

DIAK 

175 

3061 

GO(I.  I)*0. 

DIAK 

176 

DO  30*2  J*1.MX 

DIAK 

177 

3062 

H(I.J)*0. 

DIAK 

178 

DO  30*0  J*1.NU 

DIAK 

179 

3060 

D< I , J) *0. 

DIAK 

ISO 

C  READ  DATA  FOR  THIS  RUN 

OIAK 

181 

1240 

IFIINBO.GT.ll  GO  TO  53 

DIAK 

182 

C 

IF  INPO  »  1  (NEW  DATA).  READ  ORDERING  OF  STATES 

DIAK 

183 

C 

NORO  *  ARRAY  OF  THE  ORDER  OF  STATES 

DIAK 

184 

RE*0(s.2S)  (NORDd!  .1*1. NX) 

OIAK 

185 

WR I TE  <  9.67 >  (NORO(|).I*l.NX) 

OIAK 

186 

67 

FORMAT  (//7X.22M  STATES  ARE  OROERED  ASF/(7X.20U)//> 

OIAK 

187 

53 

CONTINUE 

OIAK 

188 

C  READ  CHANGES  IN  F.G1.G2  (ROW.  COLUMN.  ELEMENT  VALUE! 

OIAK 

189 

C 

F  *  STABILITY  MATRIX  (OPEN  LOOP) 

DIAK 

190 

C 

G1  *  CONTROL  INPUT  MATRIX 

DIAK 

191 

C 

G2  *  DISTURBANCE  INPUT  MATRIX 

OIAK 

192 

C 

wherf 

OIAK 

193 

C 

XDOT  *  F»X  ♦  01 *U  ♦  G?*ETA 

OIAK 

194 

C 

if  inpo»i  (Changes  to  existing  oatai.  row  and  columns 

CORRESPOND 

DIAK 

195 

C 

Rf-ORDERED  states 

DIAK 

196 

Figure  84.  Program  DIAK  Program  Listing  (Continued) 
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nnn  un  n  nnnonno 


CALL  (NPT  (F.mx.Mxi 
CALL  INPT I G 1 .MX. MUl 
CALL  INPT  (G2.MX.MN) 

IF(INPO.GT.l)  r, 0  TO  54 

C  ,r  °*.TA  °E-0PDE»  THE  STATES  (CALL  SHUFL) 

CALL  SHUFL (F.MX.MX.NX.NX.  1  .  |  .NORD.Q.M* > 

CALL  SHUFL  <G1  «MX  .MU.NX ,NU. 1 .0 .NORD . 0, MX  > 

CALL  SHUFL<G2.MX.MM.Nx,NN,1.8.N0RD.a.MX) 

54  CONTINUE 
C  PRINT  F.GI.G2 
WRITE<9,20> 

CALL  MP(MX,MX,NX.NX.F| 

WRITE(9,21> 

CALL  MP(MX.MU.NX.Nu.G|  ) 

WR! TE (9*22) 

22  FORMAT  (IHI/7X.10M  r,7  MATRIX//) 

CALL  Mp (MX  «MN«NX ,NN«G?) 

20  FORMAT ( 1HI/7X« 10H  r  MATRIX//) 

21  FORMAT ( 1H1/7X, 10H  r,l  MATRIX//) 

C  READ  CHANGES  IN  XI  AnO  XLOXL 

C  XI  ■  INITIAL  STATE  VALUES  IN  SIMULATION 

C  XLOXL  >  STATE  ANO  STATE  RATE  LIMITS 

CALL  INPT (X  I «MX.MN) 

CALL  INPT (XL0XL«MX«2> 

IF(INpd.GT.I)  GO  To  55 

C  IF  DATA  IS  NEW*  re-order  THE  STATES  (CALL  SHUFL) 

CALL  SHUFL  (XI  ,MX.MN.NX.NN,1.0,NOR0,Q* MX) 

CALL  SHUFL  (XL0XL,Mx«2«NX«?*|  «,)«N090,Q,mx  ) 

55  CONTINUE 

C  READ  CL  *  STEP  GUST  ANO  COMMAND  INPUT  LEVELS 
CALL  INPT(CL.MN.l) 

C  PRINT  Xi,  XLOXL.  CL 
WRITE (9. 1276) 

1276  FORMAT ( 1H1/7X.24HINITIAL  CONDITION  MATRIX//) 

CALL  MP(MX.MN.NX.NN.XI) 

WRITE (9, 1277) 

1277  FORMAT ( 1HI/7X, T|HSTATf  LIMIT  -  RATE  LIMIT  MATRIX//) 
CALL  MP(MX«2,NX,2,XLDXL) 

WRITE (9, 1273) 

1273  FORMAT  (1H1/7X,?iihC0MMAN0  LEVEL  MATRIX//) 

CALL  MPIMN.l.NN.I.CL) 

REAO  IN  CHANGES  IN  H  ANO  0 

h  »  state-response  output  matrix 

0  ■  FONTROL-RESPONSE  OUTPUT  MATRIX 


WHERF 


R  «  H*X  ♦  0*U 


73  CALL  INPT  (H«MR.MX) 

CALL  INPT (O.MR.MU) 

ifiinpd.gt.i)  go  to  i?5o 

IF  OATA  IS  NEW,  RE-ORDER  STATFS  (CALL  SHUFL) 

CALL  SHUFL (H, MR, MX, NR, NX, 0,  I  ,N0RD,0«MX) 

REAO  CHANGES  IN  m  (AH) 

AM  ■  MEASUREMENT  MATRIX  -  ijSED  FOR  RESPONSE  ANALYSIS  ONLY 

where 

Y  ■  M«X 


DIAK  197 
01 AK  1 98 
DIAK  199 
DIAK  200 
DIAK  201 
01 AK  202 
DIAK  203 
DIAK  204 
DIAK  ?05 
DIAK  206 
DIAK  207 
01 AK  208 
DIAK  209 
DIAK  210 
DIAK  211 
DIAK  212 
DIAK  213 
DIAK  214 
DIAK  215 
DIAK  216 
DIAK  217 
DIAK  218 
DIAK  219 
DIAK  220 
DIAK  22) 
DIAK  222 
DIAK  223 
DIAK  224 
DIAK  225 
DIAK  226 
DIAK  227 
DIAK  228 
DIAK  229 
DIAK  230 
DIAK  231 
DIAK  232 
DIAK  233 
DIAK  234 
DIAK  235 
DIAK  236 
DIAK  237 
DIAK  238 
DIAK  239 
DIAK  240 
DIAK  241 
DIAK  242 
DIAK  243 
DIAK  244 
DIAK  245 
DIAK  246 
DIAK  247 
DIAK  248 
DIAK  249 
DIAK  2S0 
DIAK  251 
DIAK  252 
DIAK  253 


1250  CALL  INPT  (AM.MX,Mx) 

IF ( INPD.GT . 1 )  GO  TO  56 

C  IF  DATA  IS  NEW,  RE-OROER  STATES  (CALL  SHU^L) 

CALL  SHUFL (AM, MX, MX, NX, NX, o, l.N0RD»3,WX) 

56  CONTINUE 
C  PRINT  H,  D,  AM 
WRITE (9,23) 

CALL  mP(MR.MX,NR,NX,H) 

Figure  84.  Program  DIAK  Program  Listing  (Continued) 


DIAK  254 
DIAK  25 > 
DIAK  256 
DIAK  257 
DIAK  258 
DIAK  259 
DIAK  260 
DIAK  261 
DIAK  262 


non  noA  o  o  o  o  r>  o  o  </•  o  onoono^o 


WRITE<9.24> 

DIAK 

263 

CALL  MP (MR • MU  *NR  *NU*D) 

01 AK 

264 

WRITE<9.29> 

DIAK 

265 

29  FORMAT ( 1M1/7X. 10H  M  MATS  I X// 1 

DIAK 

266 

CALL  MP(MX.MXtNX.NX.AM) 

DIAK 

267 

2)  F0RMAT(lHl/7X.10M  m  MATRIX//) 

DIAK 

268 

24  FORMAT (1HI/7X.10H  n  MATRIX//) 

01  AK 

269 

C  CHECK  GAINS  INPUT  OPTION 

DIAK 

270 

1230  GO  TO  (3001 •3002* 3010. 301 I 1 .1NPK 

DIAK 

271 

C  NEW  INPUT  GAINS 

DIAK 

272 

(  BK  ■  INPUT  GAINS  MATRIX 

DIAK 

273 

C  WHERE 

DIAK 

274 

C  U  *  BK*X  (WHEN  COMPUTING  OPTIMAL  GAINS) 

DIAK 

275 

C  OR 

DIAK 

276 

C  U  ■  8K«r  ■  BK*AM*X  (WHEN  COMPUTING  RESPONSES 

ONLY) 

DIAK 

277 

C 

DIAK 

278 

C  ZERO  ANO  READ  BK 

DIAK 

279 

3101  00  3003  I-l.NU 

01  AK 

200 

00  3003  J»! *MX 

DIAK 

281 

3003  BK  ( 1 1  ))«0. 

01  AK 

282 

CALL  (NPT  (BK.MUiMX) 

DIAK 

283 

IF(NCONT.EQ.O)  GO  TO  57 

DIAK 

284 

C  ir  NCONT>0*  RE-ORDER  STATES  (BECAUSE  U  »  BK«X) 

DIAK 

285 

CALL  SHUFL (BK  *MU*MX  *Nu«NX*  0* 1 .  NOROtO*  MX ) 

DIAK 

286 

57  CONTINUE 

DIAK 

287 

C  PRINT  BK 

01  AK 

288 

WRITE  (9*30.) 

DIAK 

289 

30  FORMAT (IH1/7X* 19H  INPUT  GAINS  MATRIX//) 

DIAK 

290 

CALL  MP(MU.MX.NU.NX.BK) 

DIAK 

291 

C  SKIP  TO  STATEMENT  12P0  TO  REAR  QUADRATIC  WEIGHTS 

DIAK 

292 

GO  TO  1220 

DIAK 

293 

C  USE  STARTING  ROUTINE  (STRIC)  TO  COMPUTE  STARTING 

GAINS  - 

AS  A  LAST  RDIAK 

294 

C  BK  *  -G1*(W(T)M  (At  MEANS  INVERSE  OF  MATRIX 

A) 

DIAK 

295 

C  WHERE 

DIAK 

296 

C  W ( T )  -  INTEGRAL (0*BT) OF 1EXP<F#T ) *61*61 P*EXP (FW*T ) IDT 

DIAK 

297 

C  FOR  AN  ARBITRARY  TIME  BT 

DIAK 

298 

3002  CALL  STRIC(F*G1*A.aN*E«Q*MF,NU«MX*MU> 

DIAK 

299 

CALL  TOINVR ( I SOL  « IDSOL  *NF *NF* AN«MX*KWA*DET) 

DIAK 

300 

IF ( ( 1S0L* IDSOL ) -21  3004*3004*3005 

01  AK 

301 

C  (W(T> ) I  IS  NO  GOOD  -  GO  TO  NEXT  RUN  -  BUT  FIRST* 

READ  REMAINING 

DAT AO I AK 

302 

C  THIS  RUN  ANO  CHECK  TO  SEE  IF  THE  NEXT  RUN  IS  SOLVABLE 

-  THE 

STARTDIAK 

303 

C  GAINS  MAY  NOT  BE  GOOO  -  IF  SO*  STOP 

DIAK 

304 

3005  WRITE (9* 3006) 

DIAK 

305 

3006  FORMAT 11H1/7X.31H  INVERSE  Or  WIT)  DOES  NOT  EXIST/7X»1BH 

CHECK 

NEXTDIAK 

306 

1 PROBLEM//) 

DIAK 

307 

CALL  I NPT  (QO* MR «MR) 

DIAK 

308 

REA0I5* 1215)  I DUN 

01  AK 

309 

IF ( IDUM.GT ,0)  STOP  77 

DIAK 

310 

REA0(5*28)  INPD.INPK 

DIAK 

311 

IFI1NPK.E0.1)  GO  TO  1216 

DIAK 

312 

1FI1NPK.EQ.2.AND.(INPD.EO.I.OR.1NPD.E3.4))GO  TO 

1216 

DIAK 

313 

write (9*3608) 

DIAK 

314 

3000  FORMAT I/7X«51HNEW  PROBLEM  NOT  SOLVABLE  WITHOUT 

NEW  STARTING  GAINS/DI AK 

315 

1/) 

DIAK 

316 

STOP  11 

DIAK 

317 

C  DEFINE  BK 

DIAK 

318 

C  AN  ■  (WCT) )  l 

DIAK 

319 

C 

DIAK 

320 

3004  DO  3009  1*1 *NU 

DIAK 

321 

DQ  3009  J*1,NF 

DIAK 

322 

BK  < I  *  J ) *0 • 

DIAK 

323 

DO  3009  K«1 »NF 

DIAK 

324 

3009  BK ( I ♦ J ) "BK ( I , J ) -G 1 (K* I ) *AN (K • J) 

DIAK 

325 

C  PRINT  BK 

DIAK 

326 

WRITC(9*31) 

DIAK 

327 

31  FORMAT ( 1H1/7X.22H  STARTING  GAINS  MATRIX//) 

DIAK 

328 
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oonon  r>  r>  n  o 


CALL  mP (MU.MX.NU.Nr .8*)  DIAK 

C  SKIP  TO  STATEMENT  1220  TO  READ  QUADRATIC  WEIGHTS  DIAK 

GO  TO  1220  DIAK 

USE  USE  LAST  COMPUTER  GAINS  IN  STORAGE  FOR  STARTING  GAINS  DIAK 

OEF I  IE  flK  *  AK  DIAK 

3010  MR l TE ( R « 33  >  OIAK 

33  FORMAT ( IH1/7X.28H  USE  GAINS  MATRIX  IN  STORAGE// t  OIAK 

SKIP  TO  STATEMENT  1220  TO  READ  QUADRATIC  WEIGHTS  DIAK 

GO  TO  1220  OIAK 

USE  INPUT  GAINS  IN  STORAGE  -  BK  ■  BK  DIAK 

3011  WRITE(R.34|  OIAK 

34  FORMAT (1H1/7X.34M  USE  INPUT  GAINS  MATRIX  IN  STORAGE//)  DIAK 

READ  CHANGES  IN  QUADRATIC  WEIGHTS  FOR  PERFORMANCE  INDEX  DIAK 

DIAK 

J  «  E(RA«0«R)  DIAK 

WH£R.  0  IS  THE  MATRIX  OF  QUADRATIC  WEIGHTS  DIAK 

30  *  0  DIAK 

1220  CONTINUE  DIAK 

CALL  fNPT (QQ.MR.MRi  DIAK 

NO-I  DIAK 

Si  CONTINUE  DIAK 

C  PRINT  00  DIAK 

WRITE (R.36I  DIAK 

36  FORMAT (1H1/7X.27H  QUADRATIC  WEIGHTING  MATRIX//*  DIAK 

CALL  mP ( MR  *  MB  .  NR  *  NP • 00 )  OIAK 

C  IF  NCONT  ■  0  (NO  OPTIMAL  CONTROL  COMPUTATIONS)*  SKIP  TO  STATEMENT  690IAK 
C  RESPONSE  COMPUTATIONS  DIAK 

IF(NCoNT.EO.O)  GO  TO  AR3  OIAK 

C  CALCULATE  A.E.O  FOP  PICCATI  EQUATION  0  •  “A  ♦  AWP  *  0  -  PEP  DIAK 

C  W  *  D**Q  DIAK 

DO  4  l ■ 1 t NU  DIAK 

DO  4  ,J*i.NR  OIAK 

W(!*Jt«0.  DIAK 

DO  4  **1,NR  DIAK 

4  W(I*JI«W(I.J)*D(K*I)»00(K.J>  OIAK 

C  OQO  *  0*«Q*0  DIAK 

DO  5  1*1. NU  OIAK 

DO  S  J* 1 *NU  DIAK 

OQD( I • J) *0.  OIAK 

00  5  *f*l  *NR  DIAK 

5  DOD ( I . J) *DQ0 (I*J) *W(I*K)*D(K*J)  DIAK 

C  INVERT  HOD  -  DQD  *  (D#»0»D) )  DIAK 

IFCNU-1 >302.302.301  OIAK 

302  000(1. 1 >  *1 ./OQO < 1 • 1 >  OIAK 

GOTO  303  OIAK 

301  CONTINUE  DIAK 

CALL  TOINVR( ISOL* IDS0L*NU*NU*D0U*MU*KWA.0ET)  DIAK 

IF ( ( I  SOL ♦ IOSOL ) -2 ) A  *6  *  7  OIAK 

c  (ow*o*o*j  ooes  not  exist  -  go  to  next  rjn  oiak 

7  WRITE  (R*  35)  OIAK 

35  F0PMAT ( IH1/7X.30H  INVERSE  Of  DQD  DOES  NOT  EXIST//7X* 19H  CHECK  NEXTOIAK 

1  PROBLEM//)  oiak 

GO  TO  1200  OIAK 

6  CONTINUE  OIAK 

303  CONTINUE  OIAK 

C  W1  *  D**Q*H  DIAK 

00  8  1*1. NU  DIAK 

DO  8  I* 1  .NX  OIAK 

W1(I*U>*0.  OIAK 

00  8  <*1 »NR  OIAK 

8  Kill*  ))*W1(I*J)»W(I.K)»H(K.J)  DIAK 

C  W  *  (DF*0*0)  «»0M0*H  DIAK 

C  STORF  W  FOR  OPTIMAL  CONTROL  COMPUTATION  DIAK 

00  R  1*1. NU  DIAK 

00  9  1*1. NX  DIAK 

W ( I . J) *0.  DIAK 
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n  r>  <"> 


DO  9  **l.NU 

9  W< I.J) *W< I. J» «D00( T ,K)»Wl (K. J) 

C  AS  *  F  -  Gl* (DF*Q«D> :»0*»Q»H 

C  AN  *  A  OF  EQUATION  0  =  A*P  ♦  PA  »  Q  -  PE° 

00  10  1*1. NX 
DO  10  J=1.NX 
AN  (  I .  II  *F  (  I  .  J) 

00  10  K*1.NU 

10  AN  ( I .  it*AN(!»JI-fiU|.KI«^|K,J» 

C  Q  *  -MA«0«0*(OA»0»0) t*D*»Q»H 
00  12  1*1. NX 
00  12  J* 1 .NX 
0 ( I • J l =0 . 

00  12  K*l.NU 

12  Q(I,J>*Q<I.J)-W|(K,II«W<K,J» 

C  E  *  Q*M 

00  13  1*1. NP 
00  13  J*1 .NX 
E<I.J)*0. 

00  13  k*1.NR 

13  E<I.Ji*E(I.J)*OQ<I.K)«MIK,J> 

C  Q  *  -  H**0*D#  <0F*0*0)  t*0**Q»H 

C  0  *  0  OF  EQUATION  0  *  AFP  ♦  PA  ♦  Q  -  PEP 

00  1<*  1*1. NX 
DO  1*  J* I .NX 
DO  IS  K*1»NR 

15  Q<I.Ji*Q(I.J)*M(Kti)*F<K.Jl 

14  Q ( J. I ' =Q ( I . J) 

C  Ml  *  (D**Q*0H«G1# 

DO  16  1*1. NU 
00  16  J* 1 .NX 
«1 <  I  •  J>  *0 
DO  16  K=l.NU 

16  Wl ( I. J>*W1 (I.J) *DQn ( I . K ) *GI ( J.K) 

E  *  Gl* fDF*Q*0) t*Gl* 

E  *  F  OF  EQUATION  0  *  AFP  ♦  PA  ♦  0  -  PFP 
DO  17  1*1. NX 
00  17  J* I .NX 
E ( I « J) *0. 

DO  18  K*  1 «NU 

18  E(I.J)*E(I.J)*G1  <I.K)*W1 (K.j) 

17  E(J.1)*E(1.J» 

PRINT  AN.E.Q 

WRITE (9.32) 

32  FORMAT (1HI/7X.36MSTARTING  MATRICES  FOR  PA*A*P»O-PEP»0// ) 
WRITE (9.25) 

CALL  MP(MX.MX.NX.NX.AN) 

WRITE (9.26) 

CALL  4P(MX,MX»NX,NX»El 
WRI T£ ( 9. 27 ) 

CALL  MP(MX.MX.NX.NX.Q) 

25  F0RMAT(//7X.10H  A  MATRIX//) 

26  FORMAT ( 1H1/7X. 10H  F  MATRIX//) 

27  FORMAT (IH1/7X.10H  0  MATRIX//) 

DUMP  F.m,  AND  AM  ON  DISC  TO  CONSERVE  STORAGE 

P.  Pi,  ANO  EP  USE  STORAGE  EQUIVALENT  TO  THESE  MATRICES 
REMINn  2 
WRITE ( 2)  F 
WRITE!?)  H. AM 
ITERC=0 

c  check  gains  input  option 

GO  to  (  3000, 3006*?(’S0, 3000)  ,  INPK 

C  FOR  ALL  OPTIONS  EXCEPT  INPK  *  3  (USE  AK  IN  STORAGE).  AK  *  BK 
3000  00  7010  1*1  »NU 
00  70)0  J*l »NX 
7010  AK ( I ,  I ) *BK (I.J) 


01 AK  395 
01 AK  396 
01 AK  397 
DIAK  398 
DIAK  399 
01 AK  400 
DIAK  401 
DIAK  402 
01 AK  403 
01 AK  404 
01 AK  405 
DIAK  406 
DIAK  407 
DIAK  408 
DIAK  409 
01 AK  410 
DIAK  411 
01 AK  412 
DIAK  413 
DIAK  4)4 
DIAK  415 
OIAK  416 
DIAK  417 
DIAK  418 
DIAK  419 
DIAK  420 
DIAK  421 
DIAK  422 
DIAK  423 
DIAK  424 
OIAK  425 
DIAK  426 
DIAK  427 
DIAK  428 
DIAK  429 
DIAK  430 
DIAK  431 
DIAK  432 
DIAK  433 
DIAK  434 
DIAK  435 
DIAK  436 
DIAK  437 
OIAK  438 
DIAK  439 
DIAK  440 
DIAK  441 
DIAK  442 
OIAK  443 
DIAK  444 
DIAK  445 
DIAK  446 
DIAK  447 
DIAK  448 
DIAK  449 
OIAK  450 
DIAK  451 
DIAK  452 
OIAK  453 
DIAK  454 
DIAK  455 
DIAK  456 
DIAK  457 
DIAK  458 
DIAK  459 
DIAK  460 
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2050  CONTINUE 

C  *  ■  F*  r,l»K 

C  *  «  CLOSED  LOOP  STABILITY  MATRIX 

00  7011  I«t.NX 
DO  7011  J“ 1 .NX 
A( I  ,  Jl *F  ( I • Jl 
DO  7011  K*1,NU 

7011  AII.Jl»AII,Jl*Gl II,K1*AKIK.JI 

C  H»  H*  D«K 

C  H  IS  NOW  CLOSED  LOOP  ST  ATE-RF.SPONSE  OUTPUT  MATRIX 

00  701?  1*1. NR 
DO  7012  J«1.NX 
00  701?  K» I  .Nil 

7012  Ml  I  . Jl *H1 I. Jl *DI I «K 1»AK IK. Jl 

C  COMPUTE  IH»D«KI K*Q*Im«D*KI 

C  Pa  0»IH*0«K) 

DO  7013  I-l.NR 
00  7013  J*1 .NX 
Pll.JiaO. 

DO  7013  K*|,NR 

7013  PlI.J)*PII.JI.QQII.Kl*HIK,J| 

c  fP  a  (H*D*K ) K»P  a  (H*D»K ) **Q» IH»D»<I 


DO  7014  1*1, NX 
DO  7014  Jal.NX 
EP(I,J1*0. 

DO  7014  K»1 *NR 

7014  EPII.  I)  *EP  II«Jl»H(ir»Il*PIK«Jl 


SOLVE  FOR  INITIAL  BICCATI  MATpIX  P  FROM 
0  a  A  A*P  »P# A  *  IM«r>»Kl  *»0*  (H.Q«K1 


VIA  SUBROUTINE  CAL 

P  IS  WORKING  MATRIX  HERE  -  RICCATI  MATRl*  RETURNS  IN  EP 
CALL  CALI (A.EP.P.KWA.NX.MX.IMAX.I.IERR.EE* 

IF  ( IEPR.EO'O)  GO  TO  875 
ERROP  ENCOUNTFREO  IN  CAl  -  GO  TO  NEXT  R ;N 
WRITE (9.38) 


DIAK  461 
DIAK  462 
01 AK  463 
DIAK  464 
DIAK  465 
DIAK  466 
DIAK  467 
DIAK  468 
DIAK  469 
DIAK  470 
DIAK  471 
DIAK  472 
DIAK  473 
DIAK  474 
DIAK  475 
DIAK  476 
DIAK  477 
DIAK  478 
01  AK  479 
OIAK  480 
DIAK  481 
DIAK  t 82 
OIAK  483 
DIAK  484 
DIAK  485 
DIAK  486 
DIAK  487 
DIAK  488 
OIAK  489 
OIAK  490 
DIAK  491 
DIAK  492 
DIAK  493 
OIAK  494 
DIAK  495 
DIAK  496 


38  FORMAT  1 1H1/7X.P7H  INITIAL  GAINS  ARE  UNST A8LE//7X . 19M  CHECK  NEXT  PROIAK  497 


10RLEM//1 

READI5.1215)  IOUM 
IF  I  IDiIM.GT  .01  STOP  77 
READI5.28J  INPO.INPK 
IF(INPK.EO.l)  GO  TO  1 ?1 6 

IFIINPK.EQ.2.AN0. UNPn.EO.l  .0R.INPD.E3.4M  GO  TO  1216 
NEXT  RUN  NOT  SOLVABLE  WITH  PRESENT  STARTING  GAINS  -  SO  STOP 
WRITEI9, 30081 
STOP  II 

SET  P  *  EP»  INITIALI7E  PI  *  0 

875  DO  87s  1*1. NX 
DO  87s  Jal.NX 
PI(I,J1«0. 

876  PII,Ji*EPII.Jl 

UPDATE  A  AND  Q  MATRICES  FOR  NEXT  ITERATION 
A  a  AN  -  E»P 
OaQ.  P«E*P 
TO  SOLVE  FOR  P  FROM 


0  *  A?*P  ♦  P* A  «  0 


DIAK  498 
OIAK  499 
DIAK  500 
DIAK  501 
DIAK  502 
OIAK  503 
OIAK  504 
DIAK  505 
DIAK  506 
DIAK  507 
DIAK  508 
DIAK  509 
DIAK  510 
DIAK  511 
DIAK  512 
DIAK  513 
DIAK  514 
DIAK  515 
DIAK  516 
DIAK  517 
DIAK  518 
DIAK  519 


VIA  SUBROUTINE  CAl  DIAK  519 

AFTER  SOLVING  FOR  SECOND  P,  SOLVE  FoR  DIFFERENCES  IN  P  BETWEEN  ITERAOIAK  520 

THUS  INITIALIZE  DIFFERENCES  AND  CONVERGENCE  CPITERIA  DIAK  521 

P  IS  DIFFERENCE  AND  PI  IS  THE  TOTAL  RICCATI  MATRIX  DIAK  522 

INITIALLY  PI  IS  ZERO  DIAK  523 

00  100  1*1  .NX  DIAK  524 

DO  100  J«1.NX  DIAK  525 

EPII,  1 1 *0 .  OIAK  526 
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DO  1 C I  K=1.NX 

101  E3  (  I «  ))=EPU  .  J)  »E  (  !  .k  »«p  (*,  /  ) 

100  A < l . J) =AN < 1 . Jt -FP < I . Jt 

no  10’  i-i. nx 

DO  lO-'  J=  I  •  NX 
00  Ifi  •  K=l,NX 

103  0<  1 .  J>  rflll ,  J)  *0|  1  ,*  >»rp  (K,  j) 

10?  0< J. 1 > su< I . Jl 
FrF  =  Er 

1«00  CONTINUE 

DO  20  10  1=1 .NX 
00  ?C i 0  J=1 .N« 

?010  Pf ( 1 •  It  =P( i . J) .PI t ! . J) 

CALL  '■  FC0N9  (  T  T  t 
W»ITF  (9.3v,5S)  TT 

3055  FORM A  r  (//Xx.OHTlHF  =.rip,x//l 

C  CALL  cal  -P  1  =  AGAIN  WORKING  hATRIX  -  RICCATI  MATRIX  RETURNS  IN 
CALL  f ALl  < A,0,P.KWA  »NX .MX, IwAX . 1 , IERR*EE£» 

FEE=Er»IO. 

CALL  ‘ECONO ( TT I 

WR I  TE ( 9 . 3055 )  TT 

IF  (  I£  JP.EO.0)  GO  Tn  @74 

C  ERROR  E  TOUNIERED  IN  CAL  -  DO  TO  NEXT  RUN 
WRITE 14.39) 

39  FORMAT!  |H1/7X.3’H  olCfATI  SOLUTION  IS  D I VERGING//7X * 1 9H  CHECK 
|  PROHt  EM// t 
RE  AO  (  =  .  12151  10UM 
I E  (  1 0  iH.fiT.ot  STOP  77 
READ!-,. 20)  INPD.INDK 
IF!  INOK.E0. 1  )  DO  TO  1  2  1  X, 

IF(|N'’*.FU.?.AN0.<|NPn.EU.i.0P.INPD.E3,4>l  GO  TO  1216 
C  NEXT  RUN  NOT  SOLVABLE  WITH  PRESENT  STARTING  GAINS  =  SO  STOP 
WRITE (9. JO00I 
STOP  tl 
C  SET  P  r  o 

074  00  07’  1=1, NX 
00  87’  J=1.NX 
877  “(I.Jt=0<I,J) 

IF(ITePC.GT.O)  GO  TO  3u57 

C  ON  SECOND  ITERATION  -  SOLVE  FOR  DIFFERENCE  P*  P  -  PI 
00  30  =  "  1=1, NX 
DO  30  =  0  J= I ,NX 
3458  P( I , J) =P( I , Jl-3l  (  I ,  J) 

3057  CONTINUE 

I TERC=  I  TERC ♦  1 

UPDATE  A  ANO  0  FOP  NFXT  ITERATION  , WHERE 

A  *  AN  -  E*(0*PI1  -  (P’PII  IS  TOTAL  RICCATI  MATRIX 

o  S  -P»E»P 

TO  SOLVE  FOP  THE  DIFFERENCE  p  FROM 

0  =  A«»P  ♦  o«A  ♦  0 

DO  30  =  0  1*1, NX 
03  30-0  J= 1 , NX 
FP  (  I  ,  0=0. 

A! I , J) =AN( I , J) 

DO  30  =  0  K  =  l,fJx 

EP ( I ,  i)  =EP( I, J) ♦  £ ( T ,K»*0(k, ji 

3050  AII,J)x»II,JI-EII.x)*(PI(X,j)»P(X,jn 
DO  30=2  1=1, NX 

00  30-2  J= l , NX 
0  ( I ,  J )  =  U  . 

DO  30  =  1  K  =  1 , N X 

3051  0(I,J)=0(1,J>-p(1,*0*fp<k,J) 

305?  0! J, I ) =0! I . J) 

C  BEFORE  DOING  TO  THE  NFXT  ITfRaTION.  CHECK  FOR  CONVERGENCE 


D 

D 

D 

D 

D 

D 

0 

0 

D 

D 

D 

D 

0 

D 

D 

0 

Q  D 
D 
D 
0 
0 
0 
D 
0 

NEXTo 
D 
D 
D 
U 
D 
0 
D 
D 
D 
D 
0 
D 
0 
D 
0 
0 
0 
D 
D 
D 
0 
0 
0 
0 
0 
0 
D 
D 
0 
D 
D 
D 
D 
D 
D 
0 
0 
D 
0 
D 
D 


Figure  84.  Program  DLAK  Program  Listing  (Continued) 


AK  527 
AK  520 
AK  529 
AK  530 
AK  531 
AK  532 
AK  533 
AK  534 
AK  535 
AK  536 
AK  537 
AK  538 
AK  539 
AK  540 
AK  541 
AK  54? 
AK  543 
AK  544 
AK  545 
AK  546 
AK  54  7 
AK  548 
AK  549 
AK  550 
AK  551 
AK  552 
AK  553 
AK  554 
AK  555 
AK  556 
AK  557 
AK  558 
AK  559 
AK  560 
AK  561 
AK  56? 
AK  563 
AK  564 
AK  565 
AK  566 
AK  567 
AK  568 
AK  569 
AK  570 
AK  571 
AK  572 
AK  573 
* AK  574 
AK  575 
AK  576 
AK  577 
AK  578 
AK  579 
AK  580 
AK  581 
AK  582 
AK  583 
AK  584 
AK  585 
AK  586 
AK  587 
AK  588 
AK  589 
AK  590 
AK  591 
AK  592 


228 


<->  o  o 


WHEN  TMf  ABSOLUTE  CHAyGF  |N 
ITERATIONS  tS  LESS  THAN  The 


Thc  FlEMENTS  OF 
ABSOLUTE  VALUE 


GO  TO  135 

SMALL*  consider 

r.O  TO  838 
I  ARr.p*  CONS  I  l)F R 


M£M  AS  ZERO  AND  COUNT  THEM  AS 


THE*1  AS  DIVERGING  AND  GO  TO 


888 


106 


C  < 
CR 
OR 
CR 
CR 
CR 
C 

CR 

CR 

C 


CONVcOOENCE  IS 
MATRIX  BETWFfN 
T  1  M£  >  EE 

ONLY  CHECK  THr  UPofR  TRIANGULAR  FLEMENTS 
ICT  =  0 

DO  I0'=  1  =  1. NX 

no  ios  j = i * n x 

AO | =  AhS (P ( I «  j) ( 

IFIAPf.LT.I .£-?ol 
If  THE  CLEMENTS  ARE 
If (APf.LT.I.E*’  .1 
If  THE  CLEMENTS  AOf 
WRITE (9* OR) 

RE AO ( S* | 2 1 S )  IOUM 
If ( ID  IM.GT.01  STOP  77 
R£ AD ( ^ « 28 1  INPD.INOK 
If  (INOK.EO.II  GO  TO  1216, 

IF <  INuK.EO.?.ANO. ( TNPn.EQ.l ,0». 1NPD.E3.41  1  GO  TO  1216 
NEXT  RU  |  IS  NOT  SOLVABLE  WITH  PRESENT  STARTING  GAINS  -  SO  STOP 
WR I T£ ( 9.  3008 1 
STOP  II 

AO  I =AhS (PI ( I .  Jll 
IF(APl.LT.l.f-RO>  GO  TO  10S 
RAT  *P i I • J 1 /p I ( I  *  J I 
RAT *AHS  ( RAT  ) 

If (RAT-Efi 105. I i5. 137 
COUNT  CONVERGED  ELEMENTS 
10S  ICT*ICT«1 
107  CONTINUE 

If  ICT  DOES  NOT  EOUAl  NC*  THE  NUMBER  Of  ELEMENTS*  AND  THE  NUMBER 
TIONG  DOES  NOT  EQUAL  ITER.  GO  TO  Nf.xT  ITERATION 
If (NC-ICT1109.122.10R 
If  ( IT«-RC-ITER>  IfiCO.lOni.ICO) 

If  ITERC  EQUALS  ITER.  NO  CONVERGENCE  -  PRINT  LAST  TWO  RICCATI 
AND  GO  TO  NEXT  RUN 
WRITEI9.12J) ITtR.ICT 

FORMAT (IH1/7X.18H  not  CONVERGfO  IN  I3.34H  I TE« AT  I ONS-f I RS T  TERM 
If  A IL  PAS  I<*/ » 

I TERM= I  TER- 1 
DO  30SR  1=1. NX 
DO  3054  J* l .NX 
P(I*Jt*P(I.Jl*PlU.J» 

WR  ITE ( 9* 1 21 I  ITER 

FORMAT (///23H  p  MATRIX  AT  ITERATION  I3//1 
CALL  mP(MX.MX.NX.M*.P) 

WR1TE(R.I21*ITERM 
CALL  *p<MA.MX.HX.N*«Pjl 
WRITE (9.391 
*  MOOlf  TC AT  IONS 
REAO(S, 12151  IOUM 
If (I0NM.GT.01  STOP  77 
READ(s,28)  1NPD.INPK 
If  (INPK.EO.n  GO  TO  1216 

If  ( IN’’K,E0.2.AN0.  (  INPll.EO.l  .OR.  INP0.E3.4l  1  GO  TO  1216 
NEXT  RU>  IS  NOT  SOLVABLE  WITH  PRESENT  STARTING  GAINS  -  SO  STOP 
WRITE (9.30081 
STOP  II 
•••  MOOlf ICATIONS 
122  CONTINUE 

COMPUTE  OPTIMAL  GAINS 


the  ridiak 
Of  The  oiak 

DIAK 


Of 


108 

109 


1001 

120 


3054 

121 


:  •D*»0,H  -  (0<#Q*D> I*G|»° 


3056 


K  «  -(0f*0«f)l 
DO  3056  1=1. NX 
DO  3056  J=1.NX 
P(I*J1*P(I.JI*PI«I.J» 

DO  12S  1=1, NU 
00  12s  J=1.NX 

Figure  84.  Program  DIAK  Program  Listing  (Continued) 


OIAK 
OIAK 
UIAK 
DIAK 
DIAK 
OIAK 
CD  I  AK 
OIAK 
NEXTDI AK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
OIAK 
OIAK 
OIAK 
OIAK 
OIAK 
DIAK 
OIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
MATDIAK 
OIAK 
DIAK 
TOO I AK 
OIAK 
DIAK 
DIAK 
OIAK 
OIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
OIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
OIAK 
DIAK 


593 

594 

595 

596 

597 
593 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 
633 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 
64v 

650 

651 

652 

653 

654 

655 

656 

657 

658 
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AK ( I •  J ) =-«  < I . J » 

00  125  K=l.NX 

125  AK  (  I  .  M*AK(I.J)-Wl  II**)*P|K,J> 

C  SET  COMMAND  FEEDFORWARD  GAINS  TO  /ERO 
NXMNCrNX-NCS»l 
DO  86  1=1. NU 
II*!  **|F-NU 
00  86  J=NXMNC.NX 
C  •••  MODIFICATIONS 
C  A  (  I  |  .  11*0. 

C  •••  MODIFICATIONS 
86  AK  (  I .  II  =0. 

C  •••  MODIFICATIONS 

C  RECOMPUTE  A  -  CLOSFD  LOOP  STAHILITT  MATR  l X 

REWINn  2 
READ  <  2 )  A 
DO  88  !*|. NX 
DO  88  J=1 .NX 
DO  88  K  *  1 «  NU 

88  A( I . J) *A( I • J) .Gill ,KI»AK (K, J) 

C  •••  MODIFICATIONS 

C  PRINT  GAINS  MATRIX  AMD  P1CCATI  MATRIX 
4*04  FORMAT ( 1H1/7X. 11H  GAINS  MATRIX//* 

4810  WRITE (P.4005 ) 

4065  FORMAT ( IH1/7X, ISM  RICCATI  MATRIX//* 

CALL  MPIMX.MX.NX.NX.Pl 
WRITE! 9*4004 ) 

CALL  mPIMU.MX.NU.Nx.AK! 

C  RE-READ  H  AND  M  MATRICES  FROM  DISC 
REWIND  2 
READ  <  x ) 

REAOO*  M.AM 
IF  (NrONT.LT. 2)  GO  TO  82 

C  RECOMPUTE  QUADRATICS  WEIGHTS  ON  CONTROL  RATES 
N5CSS=NF-NU*  1 
DO  80  I*NSCSS.NF 
II«I»nSCRR-NSCSS 
IJ*I-mSCSS*1 
DO  80  J*NSCSS.NF 
JJ*J*NSCRR-NSCSS 

80  00 ( 1 1 . JJ) »-P< I . J»  «Gl ( I  «  I  J*/ (H( JJ* J> *D( 1 1 « I J*  > 
PEWINn  2 
READO»*  F 
NUU«N(I*NU 
NCU-0 

00  84  1*1. NU 
DO  84  J*NSCSS.NF 

IF(ABS(AK(l,J)».GT..OS(  GO  TO  04 
NCU*NCU«  l 

84  CONTINUE 

IF  (NC'I.EO.NUU)  GO  TO  85 

IF (NQ.GT. I TEPO*  GO  TO  85 

NOaNO.l 

INPK* 1 

INPD*? 

GO  TO  81 

85  CONTINUE 

WRITE (6*831  IRON 

83  FORMAT ( 17HQ  MATRIX  FOR  CASE. I  3) 

CALL  du TP (MR. MR. NR, NP» 00*6 ) 

82  CONTINUE 

WRI TE ( 6 » 7776) 

7776  FORMAT (20 (4M  )) 

C  PUNCH  IDENTIFICATION 
WRI TE ( 6*901 0)  IRUN 

9010  FORMAT  (21HGAINS  MATRIX  FOR  CASF.*I3I 


DIAK  659 
DIAK  660 
DIAK  661 
DIAK  662 
DIAK  663 
DIAK  664 
DIAK  665 
DIAK  666 
0 1 AK  667 
DIAK  668 
DIAK  669 
0 1 AK  670 
DIAK  671 
DIAK  672 
0 I AK  673 
DIAK  674 
DIAK  675 
DIAK  676 
DIAK  677 
DIAK  678 
DIAK  679 


DIAK  680 
DIAK  681 


DIAK  632 
DIAK  683 


DIAK  684 
DIAK  685 
01 AK  686 
DIAK  607 
DIAK  608 
DIAK  689 
DIAK  690 
DIAK  691 
DIAK  692 
DIAK  693 
DIAK  694 
DIAK  695 
DIAK  696 
DIAK  697 
DIAK  698 
DIAK  699 
DIAK  700 
DIAK  701 


DIAK  70 2 
DIAK  703 
DIAK  704 
DIAK  705 
DIAK  706 
DIAK  707 
DIAK  708 
DIAK  709 
DIAK  710 
DIAK  711 
DIAK  712 
DIAK  713 
DIAK  714 
DIAK  715 
DIAK  716 


DIAK  717 
DIAK  718 
DIAK  719 
DIAK  720 
DIAK  721 
DIAK  722 
DIAK  723 
DIAK  724 


Figure  84.  Program  DIAK  Program  Listing  (Continued) 
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PUNCH  0° T  I MAC  Ci*!  NS 

DIAK 

725 

CALL  ''UTP  (MU » MX  .Nil.  NX  .  AK  «  6 1 

DIAK 

726 

WRITE (6.77761 

DIAK 

727 

:  INVERT  •<  MATRIX  (  IN  Pt  FOP  COmPmT AT  ION  3F 

KSTAR  =  K*M • 

01  AK 

728 

00  895  1=1. NX 

DIAK 

729 

no  89J  J= 1 .NX 

DIAK 

730 

892  P ( I . J 1 =  AM ( I . J 1 

DIAK 

731 

CALL  TO  IN  VP  (  1  SOL  •  I  O50L  . NX. NX. p. MX 

•  K  A  #  DET  ) 

DIAK 

732 

IF ( ( I eol ♦ I OSOL  1  “2 1  889.8H9.P9r. 

OIAK 

733 

:  IF  M  MATRIX  OOESNXT  INVERT.  F0R6ET 

COMPUTATION  OF  KSTAR  -  SKIP  TO 

DIAK 

734 

:  RESPONSE  CALCULATIONS  (STATEMENT 

8941 

DIAK 

735 

8.90  MPITE(9.40) 

DIAK 

736 

AO  FORMAT ( 1HI/7X. 3?H  v  MATRIX  INVERSE  OOES 

NOT  EX  IST//7X. 10H  I6N0RE 

IDIAK 

737 

IT//I 

DI*K 

738 

r,0  TO  894 

OIAK 

739 

:  COMPUTE  "STAR  (IN  ANI 

DIAK 

740 

889  00  12°0  1=1. NU 

DIAK 

741 

00  1 2  TO  J= 1 .NX 

DIAK 

742 

ANI (.  11=0. 

DIAK 

743 

00  I2<T«  K*1,NX 

OIAK 

744 

1280  ANI I.  )>=AN(!.Ji.AK(I.KI»P<K.Jl 

DIAK 

745 

:  STORE  KSTAR  IN  Ml 

DIAK 

746 

00  58  1*1. NU 

DIAK 

747 

00  58  J* 1 .NX 

DIAK 

748 

58  Will*  It  *AN( J . J) 

DIAK 

749 

C  PRINT  ANO  PUNCH  KSTAP 

DIAK 

750 

WP I TE  <9. 1281 > 

DIAK 

751 

1281  FORMAT (IH1/7X.13H  kSTAR  MATRlX/1 

DIAK 

752 

CALL  lP(MX.MX.NU.N)i,AN> 

DIAK 

753 

WRITE (6.901 1 1  I RUN 

DIAK 

754 

9011  FORMAT (.21HKSTAP  MATRIX  FOR  CASE. 

13* 

DIAK 

755 

CALL  OUTPIHX.MX .NU .NX . AN.6) 

DIAK 

756 

WRITEI6. 77761 

DIAK 

757 

C  60  TO  RESPONSE  CALCULATIONS 

DIAK 

758 

60  TO  894 

DIAK 

759 

893  00  89m  1=1. NU 

OIAK 

760 

DO  89 ><  J=  I  . NX 

DIAK 

761 

Will.  1) =HK ( I « Jl 

DIAK 

762 

AS  ( I  .  11=0. 

DIAK 

763 

00  89U  S=l. NX 

DIAK 

764 

898  AK ( 1 .  1 1  * AK ( I »  J 1 »8K ( I .K 1 • AM ( <  .  J) 

OIAK 

765 

00  89S  1=1. NX 

OIAK 

766 

00  89x  J= l .NX 

DIAK 

767 

A(I«J1=F(I.J1 

OIAK 

768 

no  89s  K= l . NU 

DIAK 

769 

89S  All. Jt «A( I. J* .61 ( I.K>*AKIK.J> 

DIAK 

770 

WRITE (9.421 

DIAK 

771 

42  FORMAT ( IH1/7X.41H  AIRCRAFT  RESPONSES  WITH 

PRESCRIBED  6AINS//* 

OIAK 

772 

894  00  4052  1=1. NR 

DIAK 

773 

DO  40 S?  J=l .NX 

OIAK 

774 

00  43s?  Xsl , NU 

DIAK 

775 

4052  H(I.Ji*H(I.Jl»D(I.*l*AK<K,Jl 

DIAK 

776 

60  TO  (850.851. 8511 .NOCOV 

DIAK 

777 

851  CONT 1"UE 

OIAK 

778 

DO  60aC  1=1 .NR 

DIAK 

779 

00  60,J0  J  =  1.NR 

OIAK 

780 

6080  OR ( I .  11=0. 

DIAK 

781 

AJ=0. 

DIAK 

782 

KCOM  = 

DIAK 

783 

6076  KC0M=kC0M»1 

OIAK 

784 

WRITE (9.41 1  KCOM 

DIAK 

785 

41  FORMAT ( IH1/7X.36H  fOVAR I ANCF  ANALYSIS  POR 

DISTURBANCE. 13//) 

DIAK 

786 

00  40?0  1=1. NX 

DIAK 

787 

00  40?9  J=1 .NX 

OIAK 

788 

4020  F( I.Ji =62 ( I. KCOM 1 *6? ( J.KCOMi 

DIAK 

789 

00  40 75  1  =  1 .NX 

DIAK 

790 

Figure  84.  Program  DIAK  Program  Listing  (Continued) 
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no  isc  x*  J=i  •m*  c 

60  75  P(I.J)=A(I.J>  L 

CALL  "ALl  (P.E.O.kwa.Nx.MX.  IVAX  .2.  IERR.fc)  f 

IF  (  IE'O.EO.f’)  on  TO  546  [ 

W4ITF(4.u3l  (. 

43  FORMAT ( 1M/7X, JAM  cOVaPIANCF  MATRIX  UNOFF 1  MED/ / 7X . ? 7H  IGNORE  COVARO 

IIANCF  ANALYSIS//)  D 

GO  TO  SSL  C 

8Q6  WR! TE  IQ.4H51 >  C 

4?51  FORMAT (/7X, 1SH  COVARIANCE  MATRIX//)  C 

CALL  •  P (MX. MX. NX .N«  .E)  C 

DO  40S3  1=1 .NR  C 

no  40-3  J=l,NX  C 

ANU.  I)=f>.  [ 

00  40-3  G  =  1  .NX  C 

4053  AN< I .  I»=AN( I . J) »M( i ,K >*F (K.  Ii  [ 

00  40=4  1=1 ,NR  C 

00  4u=4  J=| . NR  [ 

*R<I.  I)  =0.  C 

00  40  =  4  K  =  | .NX  c 

4054  WQ< I .  I) =  WR (I . J) *AN(l.K)»H( J.K)  C 

WRITE (0.4055)  t 

4055  FORMAT ( |H1/7X,?7M  PcSPONSE  COVARIANCE  MATRIX//)  ! 

CALL  •■P(MR.MP.NP.MP.WP)  t 

00  6077  1=1 .NP  t 

no  6077  J=1.NR  C 

OR ( I .  I) =0P (  I  . J) «WP ( I . J)  [ 

6077  AJsAJ.wP ( I . Jl *00 ( I , J)  [ 

00  70 ' c  1=1. NX  f 

00  70)5  J= 1 .NX  C 

P(I.Jl='-.  C 

00  7015  K  =  1 .NX  C 

7015  P( I . J) =P( I . J) «f ( I .X )*AM( J.K 1  t 

no  70 i 6  1  =  1  .NX  [ 

00  7016  J  = 1 .NX  ! 

Q(  I« J) =5,  t 

00  7?)6  K  = 1 .NX  t 

7016  0(I.J)=0(I.J).AM(I,K)*P(K,J)  [ 

WRITElQ.44)  t 

44  FORMAT  (  1H1/7X, 7, ',H  MEASUREMENT  COVARIANCE  MATRIX//)  l 

CALL  ’PIMA, MX. MX, NX. Q)  C 

00  111?  1=1. NU  t 

00  111?  L  =  1 .NX  t 

WU.L'sfc.  I 

DO  It i ?  «  =  1  .NX  l 

1112  W(I»L!=M(I»U«AK(I.K)«E(K,Ll  1 

00  60  <5  1  =  1  .Nil  l 

00  60=5  J= 1 » NU  f 

ODD ( I • J) =0  .  ( 

00  60  )S  K  =  1 .NX  l 

6085  000  (  l  .J)  =  OQD(  I  .J)  ♦)••(  I  .K)*AK  (J.K  )  1 

WR I TE ( Q.45 )  i 

45  FORMAT ( 1HI/7X ,?6H  CONTROL  COVARIANCE  MATRIX//)  ( 

CALL  "P  (MU.MU.MO.NII.DOO)  I 

IF(NOcOV,GT.?l  GO  TO  ?  I 

00  11  I  I  1  =  1 .NX  I 

00  11)1  J  = 1 .NX  ( 

P(I.Jl=g.  ( 

IF(E(T,1) .LT.l.F-R'l  GO  TO  1111  ( 

IF(E<  ).J> .LT.l .F-?  .)  GO  TO  1111  I 

p(I»Ji=E(!  .  J)  /SORT  (FM.D’ElJ.J))  ( 

nil  CONTINUE  t 

WRITE ( Q. 46 )  t 

46  FORMAT ( 1HI/7X.31H  STATE  CROSS-CORRELATION  MATRIX//)  l 

CALL  "PIMA. MX, NX. NX. P)  t 

00  11*3  1=1. NU  f 

Figure  84.  Program  DIAK  Program  Listing  (Continued) 


232 


00  1  1  !  ■»  J=l  .NX 

DIak 

057 

P I  I . Jl =4. 

OIAK 

050 

P< I . Jl =Wt I . -II  •  AK  (  I  .  Jl 

DIAK 

056 

1113 

CONT I "HE 

DIAK 

060 

WRITE (0.47) 

DIAK 

061 

47 

FORMAT ( 1H1/7X.41H  CONTROL-STATE  WOW-SJM  CORRELATION  MATRIX//) 

DIAK 

06? 

CALL  -.P(MX.MX.NU,N*,Pl 

DIAK 

863 

00  IPA  1  =  1. NR 

DIAK 

064 

no  iii4  j = i iN> 

DIAK 

066 

P<I.J)='J. 

DIAK 

066 

p< I . J) =AN 1 I , J) *H< I  .  J) 

DIAK 

867 

1114 

CONTI- HE 

DIAK 

H60 

WRITE (6.48) 

DIAK 

066 

46 

FORMAT ( IH1/7X.4PH  PESpONSE-STaTF  ROW-SUM  CORRELATION  MATRIX//) 

DIAK 

870 

CALL  nP(MX.MX.NR.Nx.P) 

DIAK 

871 

00  IPS  1  =  1. NX 

DIAK 

072 

no  ms  j=  i .nx 

DIAK 

873 

p« I. J»  =6. 

DIAK 

074 

IF(Q(I.I).LT.l.F-?f  )  r, 0  TO  UlS 

DIAK 

875 

IF  10 1 .1. J)  .LT.l  ,F-?-i)  r.O  TO  1115 

DIAK 

076 

PI  I .  J)  =<)<  I .  J)  /SORT  (()<  I .  I )  •')(  J.  J)  ) 

DIAK 

077 

ms 

CONTINUE 

DIAK 

070 

WRITE (6.46) 

DIAK 

076 

46 

FORMAT (1M1/7X.07H  MEASUREMENT  CROSS-CDPREL AT  ION  MATRIX//) 

DIAK 

800 

CALL  “PIMX.MX.NX.Nv.Pl 

DIAK 

081 

no  i3-o  i=i. nx 

DIAK 

802 

DO  130  J=1 .NX 

DIAK 

003 

P<I.Ji=0. 

DIAK 

004 

DO  13  1  K  =  1 , NX 

DIAK 

005 

1301 

P|  I . Jl =P| I . J) «AM I  1 ,K) «f (K.J) 

DIAK 

006 

P(I.Jl=P(l,J)*AM(I.J) 

DIAK 

807 

1300 

CONTINUE 

DIAK 

080 

W*ITE (4. 1 3l 2) 

DIAK 

086 

1302 

FORMAT IIH1/7X.45H  MEASUREMENT-STATE  ROw-S.IM  CORRELATION  MATRIX//) 

DIAK 

060 

CALL  -iPIMa.MX.NX.Nx.P) 

DIAK 

061 

no  1116  1=1. NU 

DIAk 

862 

no  ms  j= i .nx 

OIAK 

863 

PI?.J)=4, 

DIAK 

064 

no  1 1 1 7  K  =  1 .NX 

DIAK 

065 

1117 

P(I.J)=P(1.J)«WII.M)«AM|J,K) 

DIAK 

066 

P(l.Jl=P(I.J)*Wl II, Jl 

DIAK 

867 

1116 

CONTINUE 

DIAK 

860 

WRITE (6, SO ) 

DIAK 

866 

50 

FORMAT (1MI/7X.47H  CONTROL-Mf ASURE«f NT  ROW-SUM  CORREL AT  ION  M A  TO  I X//0 1 AK 

600 

1> 

DIAK 

601 

CALL  “PIMA. MX. Nt). NX. Pi 

DIAK 

902 

2 

CONTINUE 

OIAK 

603 

00  63  1=1 .NX 

DIAK 

604 

63 

OII.IlsSORTIOII.il ) 

DIAK 

605 

DO  64  1  =  1  .Nil 

DIAK 

606 

64 

DOO 1 1 . 1 1 =SORT (DOD 1 1 • 1 1  > 

DIAK 

907 

WRITE (6,65)  1 (I,OOn(I,I)).I=l.NU» 

DIAK 

600 

65 

FORMAT ( IH1//20X. 16H  R.M.5.  CONTROLS/. 1SX . 13. 1 3x .E15.8 ) ) 

DIAK 

606 

WRITE (6,66)  II  I ,0( I , I ) ) . 1  =  1 .NX) 

DIAK 

910 

66 

FORMAT (1H1//20X, 20m  R.M.S.  ME A SURF MEN t5/ l5A.I3.13X.E15.fi) ) 

OIAK 

611 

00  4046  1=1. NR 

DIAK 

612 

4056 

WR 1 1 . 1 ) =SURT 1 WR 1 1 .  1 1  1 

DIAK 

913 

WRITE  (6.4,-15  7)  (  ( I.HRI  I.  I )  )  ♦  1  =  1  .NRI 

DIAK 

61. 

4057 

FORMAT IIH1//20X.17M  R.M.S.  REsPoNSFS/ I5X.I3.13X.E15.8) ) 

DIAK 

615 

IFIKCnM.LT. NN)  GO  TO  6076 

DIAK 

616 

WR I TE ( 6.63 ) 

DIAK 

917 

6C 

FORMAT (1H1/7X.33H  TOTAL  RESPONSE  COVARIANCE  MATRIX//) 

DIAK 

910 

CALL  -IP(MR.MR.NR.NP.QR) 

DIAK 

916 

00  61  1=1. NR 

DIAK 

620 

00  61  J= 1 »NR 

OIAK 

921 

Pll.JtsP. 

DIAK 

622 

Figure  84.  Program  DIAK  Program  Listing  (Continued) 


h 


6C79 

950 


ir <OP (  i ,  1 ) .LT . 1 .F-3, )  no  to  o, 

IF<ORfJ,J).LT.».r-^-"  r,o  TJ  6i 
p ( r . ji  =uo 1 1 . j> /sort (Oq ( i < n »(j-  ( jt.n ) 
comt i  ue 
WRITE  rO.oP) 

FOPMAr  (  lHl/7X>4‘,H  TOTAL  P£SPO'.$K  CP 5SS-CGRREL AT  ION  MATRIX//) 

CALL  '®  (MX,M»  ,NP.N®,P) 

00  6 O’- 7  1  =  1  ,‘JP 
05(1,1  )  =  S')OT  ( QP  (  I .  I  )  ) 

WO  I  TF  (0,6  1  )  (  (  I  <C P  <  |  «  I  H  «  I  =  i  «<)P  | 

FORMAT  (  lH|/7x,??riTnTAI.  P.m.c.  RESPONSES/ OX  ,  13, 3X.E1S.H)  ) 

W»ITF  (Q,6'i79)  A  J 

FOPMA  r  (  1HI///0X  •  I  7«mi.V)5AT  IC  COST  =  ,  r  1  S  .  a  ) 

CONTI  UIE 

I F  ( NO  "’  .£0 .  •  )  no  TO  907 

IF  (NS 'FP.ED.O.  AMO.- PA»:O.F.<).  .)  no  TO  H07 

CALL  r  IMFP  (  A.oo.H,  X  ,  x  T  ,PA.nx  1  ,XLOxL»r,N,r,S,P,  IPI.P*  I  TITl*  I  UN  I  T«CL« 
IT.nT.  T  «  YMA  <  *  YM I N  » 1 FL  T  « 1  PUN , 1  r,  AT  E  .  N$T  £P  .  NR  AND  t  MPLOT  .N»P  I N  ♦  NN  .  NX  . 
?,NC,,M,'S.NP,MXP,MN,-'X,pPOIN»NOP*NAMf  I  ,NAM£?,SCAI  *NfwY,  T  1  ,T?,NC,LG) 
CONTI  UE 

CALL  pOLEsINX.A.mX.RP.C) 

ITFPC  =  : 

OF AO (-,1315)  I OHM 
Ir (in  IM.OT.  M  no  TO  7777 
FOPMA  f ( ?I| ) 

PFAO^./M)  INPO.INPK 
I  RUN*  f  PUN ♦ 1 
PFwlN  -  P 
9fAD(>)  F 
PE  AO ( -  )  H , AM 
RFAO(P.?ai  NCOr.'T 

PFAO  Im’iU  NOCOV *NST£P ,NPANn«NPPl N, NPlOT 

WO  I  TE  (Q,  37  )  INPO.  InPK,flC0NT,N'JC0V.NSTEP.N5AN0*HPPlM.NPL0T 

IF  (  IN  >0.E0,  1  )  C,0  T(  1P1(. 

WRITE (9, 1?71 )  I FL  T . I PUN 

no  TO  ( 1?1  )«1P?*-,  1500, 1?4J  ,  I  2 - o >  .  INPf) 

CONTI  'HE 
ENDF i!  F  6 
ENO 


DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
NFDIAK 
Dl  AK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 
DIAK 


Figure  84.  Program  DIAK  Program  Listing  (Concluded) 
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OVERL  Y(KOM?.  EEOC 

PPOOP  m  FEOC  FFOC 

OIMFN-  [UN  F  (4o.4'j)  .Cl  (40.  ,.6>  .'.?<4u,i)2)  .H<4G,4m  .  FFOC 

*  r)  (  4n .  t  M  <  AM  (  4  I  ,4  I)  .  0  ( 4i>  .4'; )  .  AK  (  OS.  '4  0  >  .  I)K  (  G6.4.'> )  •  n.)OK  (  Oh  *40  I  *  FFOC 

*  AK  G  (  *»•*•<,)  .6*1  61*4')  I  *A  (4U|4^)  <  X  (4  *4j)«C(40«40)*  FFOC 

*  0(49.4  !  >  .mOK  (4  H4-  >  .5(4  1.4  )  .PP(hO'l)  .OEL<<06«40I  .  AKP  <  06. -»0)  FFOC 

DIMENSION  U<4(>.49>  .«<£>. 9>  .-(9. 9)  .FSCtO.'.u)  .00(6.40)  •  FFOC 

*  D00  n  6.  -.6)  .*  na(S;  >  »T  (5  9. 5  <)  .60<Sj.4fl>  .DJV(Sij*  .OJVT (So)  «  IF  (50)  •  FFOC 

*  JF(S  (  .  AMT  <50. A}  I  .  Y  (4-;  .4  I  .2  I-4L  .40)  .NORO<  4G>  FFOC 

C  FFOC 

C  ARRAY  0 ;  **ENS  IONS  FFOC 

C  FFOC 

mx  =  4A  FFOC 

M  R  =  4 1*?  FFOC 

MNN  =  ?  FFOC 

MU=6  FFOC 

M  M  =  4  0  FFOC 

MFF  =  9  FFOC 

MFH=4  FFOC 

MF  =  5'  FFOC 

C  I N3UT  I*.TEGEr  parameters  FFOC 

PFAD(^.l)  JMAX.Nl  r'*.N^HS.;gorOW«NliFf>!IJ  .NPIA*  FFOC 

READ (  > • I )  MX.NP.ND.NN.MFF.Nf  FFOC 

1  FORMAT (4.1?)  FFOC 

PE  AD (  • « l I  (NOPDI I > . 1=1 .NX)  FFOC 

ITER  =  FFOC 

NW=NX  FFOC 

WRITFiQ.91  I M  A  X  «  N  I  T  *.)  FFOC 

9  format  (  1H1/7X  .TOM  *x  A  X  T  M!JM  ,'n  .  OF  INNER  LOOP  IIFRATIONS  = » 1 3//7X .  FFOC 

139H  MAXIMUM  NO.  OF  OUTER  LOOP  ITERATIONS  =03//)  FFOC 

WPJTEtO.il>  NOCOV.mHEGIN.NORR  rFOC 

II  FOPMAM//7X.0H  MOCOV  =.I3.5X.9H  NS£GIN  =.I3.5X,7H  NOPR  =03//)  FFOC 

WRITE (9.13)  NX.NP.MU.NN.NFF.Nf  FFOC 

13  FORMAT  (//7X.1NW  NO.  Of  STATfS  =  ..13.5X.)PP  NO.  OF  RESPONSES  =03//  FFOC 

17X08“  NO.  Of  CONTROLS  =03.5'.??n  NO.  OF  OISTiMSANCtS  =03//  FFOC 

27X.29.-i  NO.  OF  FEEOFOPnAPU  STATES  =.I3//7X.?6H  NO.  OF  FIXED-FORM  GFFOC 

3AINS  =0  3//)  FFOC 

C  FFOC 

C  INITIAL  STEP  SI7F  FFOC 

60  PE AO ( c  « I  277 )  f PS  I  FEOC 

C  FFOC 

C  INPUT  RrAL  PARAMF TtRS  FFOC 

RFAD ( " « 1277 )  AJSTAR  FFOC 

A JT  =  A  ISTAR  FFOC 

WPIft <9. 5035)  FFOC 

5'j35  format  (  //7X  .  RPHLO NEST  COST  "XPEC TED (  A  JST AR )  / >  FFOC 

WRITE (O.S ' 33)  AjSTft»  FEOC 

5*33  FORMAT  (//7X.  (6r,lu. 4)  )  FEOC 

WRITE  IP.?)  <NORO< I ) . 1  =  1 .MX)  FFOC 

2  FORMAT  (//7X.27H  STATES  ARE  OkUEPEO  AS  SUCR/  /  (7x  .3013)  )  FFOC 

RE  AO  ( *  1277 )  D“OC  FFOC 

READ (  ;« 1 277 )  ALAM.oELT.ALAMn  FFOC 

1277  FORMA' (601  ,.4)  FFOC 

3  N0=1  FFOC 

NC= l  FFOC 

NUNST  =  A  FFOC 

C  FFOC 

C  ROWS  ANf  COLUMNS  OF  riXFO  GAImS  --  *1  FFOC 

REAO(-^.l)  ( IF<  I )  .  Jf  ( I )  ,  1  =  1  ,>jF  )  FFOC 

WRITE  iP.?v: )  FFOC 

2?  FORMAT (//7X.2PMFIXEO  GAINS  ROW  COLJMN// )  FEOC 

WRITE  <9.2r*l )  ( IF  ( I  >  .  Jf  ( I ) ,  Ul  ,Nf )  FFOC 

?ftl  FORMAT  (21X.2I6)  FFOC 


2 

3 

4 

s 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
IP 
20 
21 
22 

23 

24 

25 
2b 
27 
2A 

29 

30 

31 

32 

33 

34 

35 
3o 

37 

38 

39 

40 

41 
4? 

43 

44 

45 
4b 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 
bO 
61 
62 

63 

64 
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c 

C  INPUT  SYSTEM  MATRICES  —  F  ,  G 1  .  r,2 ,  h  .  0 ,  m  .  Q 
CALL  7EW0  (F.MX.Mxi 

call  xeroigi.mx.mu) 

CALL  7ER0  ( C>2 » M  X  aMNM  I 
CALL  7ERO(H.MR.MX> 

CALL  7fR0(0aMP.MU> 

CALL  7EWO(AMaMM.MXi 
CALL  ’EWO  (Q.MP.MPi 
CALL  INPT (F.MX.MX) 

CALL  INPT <  G I .MXaMU! 

CALL  INPT <G2aMX.MNMl 
CALL  INPT (H.MPtMX ) 

CALL  INPT (DaMR.MU) 

CALL  INPT ( AH, MM, MX) 

CALL  INPT  (O.MP.HH) 

C  INPUT  OPTIMAL  GAINS 

CALL  TP WO (AKGaMUtMx) 

CALL  TNPT(AKGaMU.Mx) 

CALL  -.HUF (F*Gl .G?aW. AM. AKGa YaNORD.MX, MX aMP  a NR  »‘(Ma  NM  *M  J  aNUaMNN  aNN I 
WPITE(P»13Itt) 

1010  FOPMATIlHl/TX.ldH  p  MATRIX//! 

CALL  •P(MX.MX.NX.NX.F) 

WPITE(OalOll) 

1011  FORMAT  (IHI/7X.1'H  r.I  MATRIX//! 

CALL  *<P  (MX  a MN  aNX  t  Nil  *  G  l  ) 

WRITEfO.lil?! 

101?  FORMAT  (1M1/7X.1CH  r,2  MATRIX//! 

CALL  MB ( MX • MNM a NX  a UN a  G? ) 

WRITE (9a 10 1 3) 

1013  FORMAT ( lMl/7Xa 1PM  M  MATRIX//! 

CALL  MP(MRaMXaNPaNXaM) 

WRITElPalOlA) 

101*.  FORMAT  (  lHl/7XalOH  r,  MATRIX//! 

CALL  -lP(MRaMNaNRaNllaD) 

WRITEI9. 19151 

1015  FORMAT <lHl/7Xt!GM  M  MATRIX//) 

CALL  MP (MM a MX  aNM a NY  a  AM ) 

WR ITE(Qal016) 

1016  FORMAT ( IH1/7X.10H  n  MATRIX//! 

CALL  '7P  (MRaMRaNRaNPaOl 

CALL  7EM0 ( AKP  aMUaMM I 
L*1 

DO  17=;0  1*1  aNU 
DO  17S3  J*l aNM 
IFIL.gt.NF)  GO  TO  1 750 
IF(I.NE,IF(L))  GO  TO  1750 
!F(J.ME.JF(L))  GO  TO  1 750 
AMP ( I  a J) *1  a 
DO  17M  N*  1  aNX 
1751  AMT(LaN)*AM(J,Nl 
L*L«1 

1750  CONTINUE 

WRITE (9a 1017) 

1017  FORMAT (!Ml/7XaA9H  MEASUREMENT  MATRIX  FOR  FIXEO  FORM  CAINS//) 

CALL  MP (MFaMXaNFaNlaAMT) 

WRITE (9a 1500) 

1500  FORMAT <lHl/7Xa»?H  OPTIMAL  RlCCATI  GAINS//) 

CALL  '•P  (Ml)aMX  aNUaNMa  AmG) 

00  15(1  1*1 aNM 
DO  15  1  J* 1 aNX 


FFOC  65 
FFOC  66 
FFOC  67 
FFOC  66 
FFOC  69 
FFOC  70 
FFOC  71 
FFOC  72 
FFOC  73 
FFOC  74 
FFOC  75 
FFOC  76 
FFOC  77 
FFOC  76 
FFOC  79 
FFOC  80 
FFOC  81 
FFOC  8? 
FFOC  83 
FFOC  84 
FFOC  85 
FFOC  86 
FFOC  87 
FFOC  88 
FFOC  89 
FFOC  90 
FFOC  91 
FFOC  92 
FFOC  93 
FFOC  94 
FFOC  95 
FFOC  9u 
FFOC  97 
FFOC  98 
FFOC  99 
FFOC  100 
FFOC  101 
FFOC  10 2 
FFOC  103 
FFOC  104 
FFOC  105 
FFOC  106 
FFOC  107 
FFOC  108 
FFOC  109 
FFOC  110 
FFOC  111 
FFOC  112 
FFOC  113 
FFOC  IU 
FFOC  115 
FFOC  116 
FFOC  117 
FFOC  118 
FFOC  119 
FFOC  120 
FFOC  121 
FFOC  122 
FFOC  123 
FFOC  124 
FFOC  125 


1501  S(IaJ)*AM(IaJ)  FFOC  126 

CALL  TOINVR(ISOLalr»SOLaNX,NXaSaMX,XgAaOE1)  FFOC  127 

IF ( ( I SOL ♦ IDSOL) .LE.2)  GO  TO  1502  FFOC  128 

WR ITE (9a 1403)  ISOLalOSOL  FFOC  129 

1403  FORMAT (//7XaS|H  MEASUREMENT  MATRIX  15  NOT  iNVERTIPLEa  ERWOW  CODE  *FFOC  130 
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fe 


i  .?n//t 

stop  n 

1502  TO  1*  5  1  =  1. N'l 
00  [4  q  j=i ,nx 
ak  ( I .  n  =  t  . 

00  14  q  k  =  l  .MX 

1405  AK  <  l  .  M=AK  (  I.  Jl  »AKr.(  I  ,K  )  »$(s,  j) 

C 

C  0FF1NE  K? 

CALL  IMPT  (AK.MU.MM) 

00  14  4  1  =  1  ,  mij 

00  14  4  J=| ,NX 

OKI!.  n  =  AK  < 1 . J) « ( ) .-AkP  <  I ,  j>  ) 

1404  A<( I,  ))=AK (I, Jt»AHC( I , J) 

CALL  1NPT  (HK.MII.MM) 

WRITE  (  Q  ,  1  '•  1  fi  ) 

1018  F0RMAT(1H1/7X.?-<H  INITIAL  r.alNS  --  -  HI)//) 

CALL  XP(MU,MX.NII,N>’.AK  ) 

WRITE  (9,  1  :<19l 

1019  FORMAT I//7X. 1  oh  K?  MATRIX//) 

CALL  •P(M!J»MM.MI|.NM,8*I 
lf(AL'M.LT..99)  no  TO  1406 
00  14  7  1  =  1  ,MIJ 

00  1 4  7  J  =  1 » N M 

1407  OFLK I r » J) =r. 

00  TO  14LR 

C 

C  INPUT  PRESENT  F  I  XFO  r.ftlNS  --  <  1  (LAMBDA  > 

1406  CALL  'FROIAK.MiI.MM) 
call  TNPTIAK.MN.MM) 

WRITE  (O.lviRO) 

1020  FORMAT  (//7X«34h  PRESENT  F  I  XcQ  GAINS  --  <  1  I L  AM0OA  )  // ) 
CALL  '‘PIMU.MM.Nll.NM,  Ak  1 

C 

C  INPUT  FTXEO  PREDICTOR  —  DEL*  1  <  L  AMBDA  I 
CALL  7EP0(0FLK,MU.mM) 

CALL  I  MPT (DEL* «  mu, mm ) 

1408  WRITE  I R. }A? 11 

10?1  FORMAT I//7X.35H  PRESENT  PREDICTOR  --  OFtK 1  I  LAMBDA ) // ) 
call  •P(MU.MM.MI).Nm.OFLK) 

c 

C  TAKE  STC'P  IN  lampoa 

172  ALAM=»LAM-DFLT 

WR I  TE  ( 9 « 1  73 )  ALAM 

173  FORMAT (//7X.RHLAMU0A  =  ,F9.l) 

C 

C  PREDICT  DAI NS  FOR  NFw  LAMBDA 
DO  31  1=1, NU 

00  31  J= 1 » NM 
OK  ( I ,  l)  =OELK  ( I ,  J) 

OFLK ( T . J) =AK ( I , J) 

310  AK (  I ,  I  >  = AK ( I  .  J 1  ♦ DK 1 1  *  J ) 

C 

C  INITIAL  T’ONOITIONS 
C 

NL  =  ) 

L  AST  =  ’ 

NCHK  = 

NGO=0 
N I  T=0 
FPS=EPSI 
AUI = 1 • ,»AJT 
7  A  JL  =  A  IT 

WRITE  (B.4i;5)  )  NIT 

4051  FORMAT!  ///7X,qw ITERATION, I  3) 

WRTTFIR.5R)  FPq 
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FFOC  131 
FFOC  13? 
FFOC  133 
FFOC  134 
FFOC  135 
FFOC  136 
FFOC  137 
FFOC  138 
FFOC  139 
FFOC  14C 
FFOC  141 
FFOC  142 
FFOC  143 
FFOC  144 
FFOC  145 
FFOC  146 
FFOC  147 
FFOC  148 
FFOC  149 
FFOC  150 
FFOC  151 
FFOC  152 
FFOC  153 
FFOC  154 
FFOC  155 
FFOC  156 
FFOC  157 
FFOC  158 
FFOC  159 
FFOC  160 
FFOC  161 
FFOC  162 
FFOC  163 
FFOC  164 
FFOC  165 
FFOC  166 
FFOC  167 
FFOC  163 
FFOC  169 
FFOC  170 
FFOC  171 
FFOC  172 
FFOC  173 
FFOC  174 
FFOC  175 
FFOC  176 
FFOC  177 
FFOC  178 
FFOC  179 
FFOC  180 
FFOC  181 
FFOC  182 
FFOC  183 
FFOC  184 
FFOC  185 
FFOC  186 
FFOC  187 
FFOC  188 
FFOC  189 
FFOC  190 
FFOC  191 
FFOC  192 
FFOC  193 
FFOC  194 
FFOC  195 
FFOC  196 
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1  -f,*-^1!!  >—  — .-r-^-r-.-.-  •  '-y,M  u-i.  .M.IUW. '!-■■“'■«*  ' 


c 

FFOC 

1ST 

C  PRINT  A- INS 

FFOC 

198 

WRITE  (Q. *.,»„<.) 

FFOC 

199 

4094  FORMA  I  I//7X,  Ph  GAINS  MATO  lx//  t 

FFOC 

200 

CALL  iP  (MU.MM.NU.Nm.A*  * 

FFOC 

201 

C 

FFOC 

202 

C  INITIAL'/E  GRADIENT  PROJECTION 

FFOC 

203 

ir (NR  '.NE.  ')  AO  TO  5 

FFOC 

204 

no  16  i*i.mi 

FFOC 

205 

no  16  J=l.NM- 

FFOC 

206 

16  AKP ( 1 . J) =  AK ( I . n 

FFOC 

207 

c 

FFOC 

208 

C  INIT l AL  t  7F  ARRAYS 

FFOC 

209 

c 

FFOC 

210 

C  COMPUTE  r»f,l««*  (LAMPQA >*M* A 

FFOC 

211 

c 

FFOC 

212 

5  no  l?  j=i.n* 

FFOC 

213 

no  12  i  =  i. nu 

FFOC 

214 

CIliJoc. 

FFOC 

215 

00  1?  K=1,NM 

FFOC 

216 

C( 1 . Jl =C ( 1 . J)  » ( AK ( ? ,K( .BK ( I .Kl*ALAM(»AM<K. J) 

FFOC 

217 

1?  CONTINUE 

FFOC 

218 

IF(LA<;T.nE.1 )  ao  Ta  66 

FFOC 

219 

no  15)  1  =  1. N(l 

FFOC 

220 

no  15)  J=1.NM 

FFOC 

221 

151  OJOK ( 1 «  J 1 = AM  1 1 , J ) .ALA«*RM ( I . J) 

FFOC 

222 

WPITE  <9.  li'i??) 

FFOC 

223 

1022  FORMAT <//7X. 37m  K«  (LAMBDA*  EOP  RESPONSE  CALCULATIONS//* 

FFOC 

224 

CALL  'PIMlJ.MM.NU.NM.D.JDK) 

FFOC 

225 

66  COmT  I'.UE 

FFOC 

226 

00  5  ( =  1 .NX 

FFOC 

227 

no  5  1=1 .NX 

FFOC 

228 

A  ( 1  .  J '  =F  <  I .  J) 

FFOC 

229 

DO  *  '=1 .NU 

FFOC 

230 

8  A(I.Jl=A(I.J).Al (1,KI«C(K,.H 

FFOC 

231 

TF(NL.NE.l)  AO  TO  184 

FFOC 

232 

C 

FFOC 

233 

C  CHECK  F  IP  STAHILITT  nF  A 

FFOC 

234 

CALL  pOLES(NX.A.MX.RR,H> 

FFOC 

235 

KK  =  0 

FFOC 

236 

11*1 

FFOC 

237 

921  IF (RP ( 1 1*  .LT.O. >  Go  To  185 

FFOC 

238 

C 

FFOC 

239 

C  IF  UNST'.RUC  --  HALVE  OElTA  LAMBDA  and  PREDICTOR 

FFOC 

240 

69  I=NUN‘T»1 

FFOC 

241 

W9ITFf9,l88)  I 

FFOC 

242 

188  FORMAT (//7X.24HUNSTA8LE  —  CHANGE  RA I NS//7X , I 3, 14HTM 

INSTABILITy/*FFOC 

243 

IF (NU"ST.E0.3*  AO  TO  5071 

FFOC 

244 

ALAM=ftLAM»OELT 

FFOC 

245 

IF(NU' ST.EO.l )  AO  TO  5071 

FFOC 

246 

C 

FFOC 

247 

C  FIRST  OR  THIRD  INSTABILITY  —  mAlVE  PREDICTOR 

FFOC 

248 

00  50'-*  9  1  =  1. NU 

FFOC 

249 

00  SOaO  J= 1 »NM 

FFOC 

250 

AK  (  I  « .(>  *AK  ( I  .  Jl  -OK  ( I  .  J* 

FFOC 

251 

5«40  OELK (  I , J) =0K ( I. JI/9. 

FFOC 

252 

A  JT  *  A  (ST  Art 

FFOC 

253 

NUNST  =NUNST ♦ | 

FFOC 

254 

AO  TO  17? 

FFOC 

255 

C 

FFOC 

256 

C  SECOND  0”  FOURTH  INSTABILITY  --  HALVE  DELTA  LAMBDA 

FFOC 

257 

5071  nELT='>ELT«.5 

FFOC 

258 

C  MODIF  *  CAT  IONS 

FFOC 

259 

IF(DEi.T.LE.1.0r-)6l»(RlTE(9.7740*DELT 

FFOC 

260 

7740  F0RMAT(1H1.//.1X.51H»**  EXIT  ON  DETECTING  VERT  SMALL 

VALUE  FOP 

DELFFOC 

261 

IT  •••.RI0.4* 

FFOC 

262 

Figure  85.  Program  FFOC  Program  Listing  (Continued) 
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*fci0ybMi£-->  .  ■*■•&*•■ -*e .'  Ml  JSC 


IC(OEl  T.Lf  .l.i)r-06vr,o  TO  t  7  TO 

FrOC 

263 

c  ••• 

MOO  t  F  r  C A  T IONS 

FFOC 

2h4 

no  sot?  1=1, nii 

FFOC 

205 

no  50’?  J=1.NM 

FFOC 

2b  6 

OFLK ( I . Jl =  D*  < I « J> 

FFOC 

267 

507? 

A<  (  I  .  II  =  AK  (  I  ,  Jl  -()■<  (  1  ..II 

FFOC 

260 

C 

FFOC 

2  OR 

C  STOP  ANU  PUNCH  0  A  INS  and  On  foipt  h  INSTABILITY 

FFOC 

270 

ir(NUiST.E0.31  C,0  to  504  1 

FFOC 

271 

C 

MOniFlCATIONS 

FFOC 

272 

c 

ALAMO  =  ALAM|).nei.T 

FFOC 

273 

c 

MOO  IF  I C  AT  I ONS 

FFOC 

274 

A JT  =A  ISTA9 

FFOC 

275 

NIJNS  T  =  p 

FFOC 

276 

C,0  ’0  1  7? 

FFOC 

277 

105 

IFIPRl  1  1*1  1  .EO.a.  I  no  TO  !?-> 

FFOC 

270 

K<  =  KK  •  ? 

FFOC 

279 

00  TO  9?3 

FFOC 

200 

<522 

KK  =  KK . 1 

FFOC 

201 

923 

IFJKK.EU.N  )  on  TO  N?4 

FFOC 

20? 

1 1  =  1 1  ♦  ? 

FFOC 

203 

OO  TO  9?  I 

FFOC 

204 

924 

CONTINUE 

FFOC 

20S 

C 

FFOC 

?0S 

C  RECOMPUTE  A 

FFOC 

287 

no  107  1  =  1,  !X 

FFOC 

200 

00  1«  ’  J= l  .NX 

FFOC 

289 

A(I.Ji=F(I.J) 

FFOC 

290 

no  107  K  =  1  , Nil 

FFOC 

291 

107 

a(1.ji=a(I.ji»oki.k)*c(k.ji 

FFOC 

29? 

c 

FFOC 

293 

C  COMPUTE  w.QKM,  R  =  (H.nKM  >  (j  (m.LKM  1  .  DO 

FFOC 

294 

104 

no  7C ’ ?  1=1. NR 

FFOC 

295 

no  70i?  J= 1 .NX 

tfoc 

29b 

MOK ( I . J) =H< i . Jl 

FFOC 

297 

no  70  1  P  K  =  1  , Nil 

FFOC 

290 

7012 

MOK  (  I  .  Jl  =HOK  (I  .  Jl  «l>l  I  .»  )*C<<« J) 

FFOC 

299 

IF  (LA5T.EQ.  i  i  r.O  TO  12C 

FFOC 

300 

no  7y | 3  1=1. NR 

FFOC 

301 

00  7013  J=1,NX 

FFOC 

302 

C(I.Ji=". 

FFOC 

30? 

no  7013  K  =  1  .NR 

FFOC 

304 

7013 

C<  T  «  Jl  =C  (  I .  Jl  *0<  I«K  1  * HfiK  (K,  jl 

FFOC 

305 

O'  70*4  I=|, NX 

FFOC 

306 

D  7014  J=  1  .NX 

FFOC 

.30  7 

B ( I • J)=C. 

FFOC 

108 

00  70>4  K  =  1 , NR 

FFOC 

JOB 

7014 

R  (  I«  Jl  =R<  I ,  J)  .MO*  <“•.  I  1  »C(*«  I) 

FFOC 

310 

no  10  1=1. nu 

FFOC 

311 

DO  1H  J=1 ,NB 

FFOC 

312 

00(1.  11=0. 

FFOC 

313 

no  10  K  =  1 .NR 

FFOC 

314 

10 

non.  i)  =00( i . j) ♦0(1'. 1 1 *o(k.  n 

FFOC 

315 

00  434  1=1. NO 

FFOC 

316 

no  434  J= 1 , NU 

FFOC 

317 

non( i. j i=«. 

FFOC 

318 

no  434  «=i, nr 

FFOC 

319 

434 

0001  l  .  J)=UOO<  1  .  J)  *nO(  T.K)  «I3(K.  Jl 

‘FOC 

320 

C 

FFOC 

321 

C  COMPUTE  COVARIANCE  MATRIX 

FFOC 

322 

CALL  TOVAR ( X I , A ,r . x .r.P.S.F ."S, V.U.NX. NFF.NN.Mx ,MEF .MF0.MNN. I MAX. 

FFOC 

32  3 

1 1 T  F  R  » 1 .IERR.KW4) 

FFOC 

324 

IF  (  IE  5R.EU.ill  C-0  Tn  17 

FFOC 

325 

IFINL.NE.ll  CO  TO  4 

FFOC 

32o 

00  6  1=1 .NU 

FFOC 

327 

no  0  1=1. NX 

FFOC 

328 

Figure  85.  Program  FFOC  Program  Listing  (Continued) 
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C  (  I  «  J  >  -  . 
no  b  -  =  i  .M’> 

0.  <  I  .  J  I  =C  <  I  .  >1  ♦  (AK  <  T  .X  )  ♦««{  I  .r<. 

00  TO  b-4 

cont  i  'lie 

A  J  T  =  1  .»■  .?' 

If  (NO .Nt  .  !  I  r,o  TO  4  0 
r-0  TO  I  750 
17  ITfp  = 

CALCULAT  CAST 

A  J  T  =  f.  . 

00  34  1=1. NX 
00  0*.  J  =  1  .NX 
34  A  JT  =  A  IT«R  (  l  ,  J)  «x  (  1  .  11 
>VB  I  TE  |9, 12?)  AIT 

13?  FORMAT  1//7X,  AH  CUCT  =  .CIS. 3) 
IF(NH--r,lN.FQ..)»  CO  TO  10 
IFIAJI  .LT.V.)  GO  Tn  |  <4  I  (, 

ir ( Ajr .lT.aji >  so  to  io 

SIC  WRITE  (9.  1hO?» 

.02  FOWMAI  1//7X.40H  COCT  FxCEFOR  I o  Tl*ES  LOwFST 
•VS  I  TE  <9,  )4) 

.  FORMAT  (  1H1/7X  .  1  An  COVA»IANCr"  AT«|X//1 
CALL  *P (MX, MX,  N«. N*. XI 
STOP  I  1 

10  !  F  <  NO  ,  NE  .  1  >  GO  TO  ••SO 
10  IF (NG  i , EO  .  ? )  Gn  TO  07 


COMPUTE  XM,  MXM  INVEPSE 
00  l?s  1=1, NX 
00  1?'  J=l.r,<M 
C  <  I  .  J'  =  ,  . 

00  l  ?-  K  =  l  .NX 

125  C  (  I  .  Jl  =C  (  I  •  J>  ♦  x  (  1  «0*AM<  J.K) 

CALL  T  PANS  (AMT  .  X  .  T  .  D0O  .NX  ,  M  *  ,  \F  ,  Mil .  WF  ,  MM  .  1 F  ) 


COSTATE  CALCULATION 


CALL  COST  AT  (P.A.S.X.fS.Y.Z.E.U.V.KwA.mx.MFO 

IF ( lEPp.EO.f  >  00  T o  luon 
wo  I  TE  (  9 .  1 4f.  I  I 

FORMAT (//7X.4SH  COcTATl  MATRIX  UNSTAKlF  WHEN 
STOP  I  1 


FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 

TI«ES  LOwFST  COST  EXPECTED//)  FFOC 

FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 
FFOC 

.Mrr.NX.NFF. I MAX. IERRIFFOC 

FFOC 
FFOC 

ST  AT  r  MATRIX  IS//)  FFOC 


C,PAO|FNT  CALCULATION 


COMDUTF  ’0<J(H*0KM)XM(»,XM1- 


2Gl«SXM <MXm»  ■ 


.00  DO  19  1=1. MU 
00  19  J  = 1 .NX 
R  ( I .  J  i  =(/ . 

DO  19  K=| ,N» 

19  R ( I . J>  =R( I , J> .not  I .K)*MOK (K.J) 

DO  30  1=1. NU 
DO  3C  J= 1 . NX 
X  <  I . Jl  =4. 

00  30  K  =  l.i\|X 

30  X (1 . Jl =X (I , J) .01 <*. I )«$(«. J) 

DO  l?s  1  =  1. Nil 
DO  12-.  J=1.NM 
0  JDK ( r . J) =0. 

DO  1?4  K=l,NX 

12s  0 JDK ( I . Jl =DJn< (I.;i.(W(l.K).X(I,<ll«C(X.JI*?. 

no  to  as. 


Figure  85.  Program  FFOC  Program  Listing  (Continued) 
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S 7  CONTI  MC 
:  PROJECT'D  GRADIENT 

no  io‘  1  =  1. nii 

DO  10-  J=1.NM 

I?*  OJOK  (  '  ,  J)  =AKP  (  !  .  J) -AK  (  1  .  JI 

GO  TO  RS-? 

:  CALC'JLAT  RESPONSES 

120  CONTI  illE 

GO  TO  (353.851 .851 l .NoCOV 

CALL  JFSP  1C.  A.  i,  ?.  A*.D  I[1K  .  *  .  T  .  /  .S»P.  t  S.F  .U.  V.X  1  ,I)Q.  AKG.OQO.HOK  .KWA 
IN*.  NF  r  •  NN.NM.NU.MP.MX.MX'F  .H^H  .  M^N  .  M4  ,  m  I ,  M3  .  J  TEO  •  I  8  A  A  .  I  tPH.NOCOV  ) 
ITPP  = 

853  CALL  -jOLES(NX.A.MK,RP.mi 
050  CONTINUE 

IF  (L  A^T  .Ell.  1  >  GO  TO  5  7 
l F (NL . r0. 1 1  A  JL  A  T  =  J  T 
NREG  I  •  =  0 

IFING.NE.1>  GO  TO  43 
IF  (NGtl.EO.?)  GO  70  1 758 

CALL  Tft  IN|/P  (  I  SOL  *  |nSOL.NF,Nr,T.MF,«*A.OETl 
IF( < I  OL*!OSOL> .LE.2)  GO  TO  d=P 
WRITE  IR. I '23 ) 

1C23  FORMAT  (//7x,  39m  GPaTiIeMT  TC4nsF0R«A  I  I  ON  NOT  INi'EPT  A4LE/2  > 

STOP  >? 

852  WRITE  (9.1*241 

1024  FORMAT!  // 7  X . 3 1 h  r.PAO  I  f  ,\)J  T  p  ANSFOw*  A  T  I  ON  MATRIX//) 

CALL  INSCHIT.O  tOK.njy.OJVT.  if.  JF.Nf  .NJ.NM.MIJ»MM,MP) 

CALL  'OLES(NF,T,Mr,RB.M| 

1756  IF(NL.GT.u)  GO  TO  500 

IF (NG-m.GT.Ot  GO  Tn  500 

:  correct  fop  instarility  whIi  e  Computing  gradient 

NGH=  1 

IFIAJT.GT.AJMI  NGHrO 
IF (AJt .LT.O. )  NGH=' 

IF(NG  i.NE.OI  GO  TO  SOft 
NGRR  = ’ 

EPS=E-SO 
00  50  l'  1  =  1  .NU 
no  soi  j=i.nm 

AK  (  I  ,  It  =  AK  (  I  .  JI  -ok  (  I  .  Jl 
OK  ( I  .  it  =EPS0«0K'  ( I  ..It  /FPSS 
IF (NC  t.EO.2)  A< ( I . J)  =  AK ( I ,J>  »?.*DK ( I . JI 
IF (NC0.E0.3)  AK ( I ,J)=aK( | , j) *.5*Dk ( I « J) 

IF  (NCl.Eli.5t  AK  (  I  .  J|  =AK  (  I  ,  J)  ♦  OK  (  I  ,  JI 
’41  CONTINUE 
GO  TO  7 

>00  IF (NCuk.EU. Al  GO  Tn  5)06 

COMPUTE  PATIO  OF  COSTS 
POC  =  A  iT/AJLAT 
WRITE (P.5C30I  POC 

030  FORMAT  (//.  7X.  I7MRAT  10  OF  CO^Tf  =  .F|0.<,| 

IF  (RO'-.GT.OPOC>  IACT  =  1 
AJLAT^AJT 

IT (NI T.GE.NITMI  L A s T  = | 

NORMALIZE  GRADIENT  and  COMPilTf  DELTA  gains 

006  SUM=0. 

000  00  AO  1=1. NU 

DO  AO  J= l » NM 

40  SUM  =  S.iM.DJOK  ( I .  JI  *r>JOK  (  I  ,  ji 


Figure  85.  Program  FFOC  Program  Listing  (Continued) 
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FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

.FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 

FFOC 
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SUM  =  SOR  T  (SUM) 

FFOC 

461 

W9  1  Tf  (9.50  31)  S(JM 

FFOC 

462 

5031 

FORMAT (//,7X. 16HGPA01PNT  NO >M  -  .riS.8) 

FFOC 

46  3 

5609 

DO  10)  1=1. NU 

FFOC 

464 

00  10)  J=1.NM 

FFOC 

465 

163 

DJDK ( T . J) =DJO* ( I . J) /SUM 

FFOC 

466 

12! 

W° I T  E ( 9  «  39 ) 

FFOC 

467 

39 

FORMAT ( / / 7  X , IqhnORmAL ! ZED  GRADIENT //  ) 

FFOC 

468 

38 

CALL  )P (MU, MM, MU. N"  .OJOX  ) 

FFOC 

469 

8610 

NL  =  0 

FFOC 

470 

IF  (la  ;T .Eu. 1 )  go  To  5 

FFOC 

471 

C 

FFOC 

472 

C  COUNT  GRADIENT  DIRECTIONS 

FFOC 

473 

NGB0  = ■ 

FFOC 

474 

NGD=NGO  » 1 

FFOC 

475 

NCHK  s 

FFOC 

476 

IF  (NORR.f.I  .01  GO  TO  lo2 

FFOC 

477 

IF  (NG  '.EO. 3)  N0HK  =  1 

FFOC 

470 

IF  (NG  ).EQ.  3)  NGf)  =  0 

FFOC 

479 

GO  TO  110 

FFOC 

400 

102 

IF(NGD.EQ.2i  NCHK=1 

FFOC 

401 

IF  (NlGo.EO.?)  NGO  =  () 

FFOC 

482 

110 

AJOG=4  IT 

FFOC 

403 

A J0GL=AJL 

FFOC 

404 

861  l 

00  4?  1=1 .NU 

FFOC 

405 

00  4?  J=1 , NM 

FFOC 

406 

AKG< 1 . J)=AK ( 1 , J) 

FFOC 

407 

92 

OK  (  1  .  I)  =-EPS  •0  )0'  (  I  .  Jl 

FFOC 

400 

NG=0 

FFOC 

409 

NC  =  1 

FFOC 

490 

NCO  =  0 

FFOC 

491 

GO  TO  44 

FFOC 

492 

C 

FFOC 

493 

C  STEP  Sizr  LOGIC 

FFOC 

494 

C 

FFOC 

495 

43 

IFIAJT.LT. 0.1  GO  TO  301 

FFOC 

496 

IF(AJT.LT.AJI)  GO  TO  4) 

FFOC 

497 

C 

FFOC 

498 

C  UNSTABLE  --  HALVE  STEP  SIZE 

FFOC 

499 

301 

NC0=NG 

FFOC 

500 

NC  =  1 

FFOC 

501 

NIT=NTT-1 

FFOC 

502 

IF (NCG.GT •  1  >  NIT=N1T-1 

FFOC 

503 

A JT  =  A  IOG 

FFOC 

504 

AJL  =  A  lOGL 

FFOC 

505 

EPS=EDS/2. 

FFOC 

506 

C 

M0DIF!CAT IONS 

FFOC 

507 

IF  (EP'.LE. 1 .OE-06) WRITE (9.772'  1  EPS 

FFOC 

500 

7720 

FORMAT (1H1,//. IX, 5‘M***  EXIT  on  detecting  VERT 

SMALL  value  for  epsffoc 

509 

1  ••*,G|C.4> 

FFOC 

510 

IF  (EPS.LE.  1  .0E-06)  GO  TO  173-. 

FFOC 

511 

C 

MODIFICATIONS 

FrOC 

512 

S612 

DO  121  1=1. NU 

FFOC 

513 

OG  121  J= 1 , NM 

FFOC 

514 

AK  (  I ,  |)  =AKG(  I  ,  J) 

FFOC 

515 

123 

DK ( 1 ,  1) =.S*OK ( I « J) 

FFOC 

516 

GO  TO  44 

FFOC 

517 

41 

IF(NC.GT.l)  GO  TO  45 

FFOC 

518 

IF(AJT.GT.AJL)  GO  TO  47 

FFOC 

519 

IF (NCD.EO. 1 >  GO  TO  47 

FFOC 

520 

c 

FFOC 

521 

C  DOUBLE  step  size 

TF0C 

522 

SI  13 

DO  46  1=1 .NU 

FFOC 

523 

00  46  J= 1 • NM 

FFOC 

524 

46 

AK ( I ,  n=AK<I,J)«OK(I,U> 

FFOC 

525 

N I T  =N I T ♦ 1 

FFOC 

526 

Figure  85.  Program  FFOC  Program  Listing  (Continued) 
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NC  =  ? 

A JLL* ' JL 
GO  TO  7 


HALVE  ME?  SIZE 


47 

00  48 

1*1 .NU 

DO  48 

J=1 .NM 

48 

AK  (  I . 

1) =AK ( I . J) -.5»0* ( 

5014 

N I  T  =N 

1  T  ♦  1 

NC*3 

AJLL* 

iJL 

GO  TO 

7 

C 

C  COMPUTE  NEW  STEP  SIZE 
45  IE  ( NC  . EO •  3 1  r>0  TO  40 
AJ0=A JL-AJT 

Ieiaj'i.lt.c.i  nc=s 

AjOn  =  /S  JLL-AJL 
I  f  (  A  JO  ,L  T  .  A.JOO )  GO  TO  411 
EPSS=^.«EPS 
00  TO  41? 

431  8=<AJT-AJL«2.«AJLL) / < ? . «EPS»EDS > 

00  TO  50 

49  A JO* A  IT-AJL 
AJOO*A JLL-AJT 
IFIAJnO.LT. 0.1  NC=4 

IE ( AJn.LT .0. I  00  T"  433 
IF(AJO.LT.AJOP)  O0  TO  413 
EpSS*i'PS 
00  TO  432 

433  Rs-(4.«aJT-?.«aJL-p.»AJLUZ  (EPS»EPS) 

50  AB= (A  IL-AJLL-£PS*EPS*H /EPS 
EPSS=-AK/ (2.«fl) 

432  EP=EPcS 

ajm=a<ini  (ajt.ajl.ajll> 

EPSO*rPS 

NCO*Nr 

IE(NC.EO.J)  00  TO  01 
IEiNC.FO.4)  00  TO  01 
541 5  00  52  1*1. NU 

DO  52  J=1.NM 

52  A< ( I .  n =AK (  I .  J>-?.*OK ( I « J> 

00  TO  53 

51  00  54  1=1 .NU 

00  54  J= 1 » NM 

54  AK(I.  i**AK(I.J>-.5*DK(I.J) 

53  NC* 1 
NO*  1 

00  55  1=1. NU 
DO  55  J=1 .NM 

OK<I,  n=EPS5»DK(I.J)/EPS 

55  A« ( 1 .  II =AK ( I . J) »DK ( I . J1 

5016  NIT=NIT»1 
IE(EP.GT.O.)  00  TO  175 
W9 1 TE  <  9 .59)  EP 
fDSl-rPSS 

NC0  =  4 
GO  TO  7 

175  EPS=EPSS 
00  TO  7 

44  00  65  |  =  1  *  NU 
DO  65  J=1 .NM 

65  A<(1.  I)=AK ( I . J) »D* ( I > J> 

5017  N I T  =N I T ♦ l 
GO  TO  7 

57  NC* I 


EEOC  527 
EEOC  528 
EEOC  529 
EEOC  530 
EEOC  531 
EEOC  532 
EEOC  533 
EEOC  534 
EEOC  535 
EEOC  536 
EEOC  537 
EEOC  538 
EEOC  539 
EEOC  540 
EEOC  541 
EEOC  542 
EEOC  543 
EEOC  544 
EEOC  545 
EEOC  546 
EEOC  547 
EEOC  548 
EEOC  549 
EEOC  550 
EEOC  551 
EEOC  552 
EEOC  553 
EEOC  554 
EEOC  555 
EEOC  556 
EEOC  557 
EEOC  558 
EEOC  559 
EEOC  560 
EEOC  561 
EEOC  562 
EEOC  563 
EEOC  564 
EEOC  565 
EEOC  566 
EEOC  567 
FEOC  568 
EEOC  569 
EEOC  570 
EEOC  571 
EEOC  572 
EEOC  573 
EEOC  574 
EEOC  575 
FEOC  576 
EEOC  577 
FEOC  578 
EEOC  579 
FEOC  580 
FEOC  581 
EEOC  582 
EEOC  583 
EEOC  584 
FEOC  585 
EEOC  586 
EEOC  587 
EEOC  538 
FEOC  589 
EEOC  590 
EEOC  591 
FEOC  592 
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o  r> 


59  FQBMATt  ///7X.  1  phstfg  SIZE  =  .E15.8I 
Nr,=  i 

ajsta  >-a jr 
njmst -c 
c 

C  INITIAL'ZE.  NF-*  PBfOIrTOR 
00  31!  1=1. NH 
00  31 1  J=1 .NH 

311  OFLK ( 1 ♦ J>=AM I . J)-nrLK ( 1, J) 

PPI\f  P  ’rOlCTOP 
5ul8  W91TE(9.J13) 

313  POohat (// 7X, 14H  NFP  PPEOICTOR//) 

CALL  •P(MJtMH.MJ«N,-»tOFLK> 

IF  (AL  •,H.CT.  ALAMO)  '".0  TO  17’ 

60  TO  I  73" 

86  FORMA  >  <  36)  (’.4«3  iX.  |6M  AL A“  nELT  ALAMO) 

C 

c  STO°  PPOsPAM  --  pb INT  PRFOICT09,  PUNCH  OJT"UT 
5041  w?  I  TE  (9.313) 

CALL  *P  <MU.MM,NU«NM.OF|.K  ) 

C  •••  HOOTF (CAT  IONS 
1730  CONT  I  illE 

WSJTE  f  I *7701  ) 

7  731  FORMA  r (9HFF00  0 a  T  A  1 
TF ( I .770?) 

77P2  FORMA'  (  ISHALA'I.OFLr.ALAHU) 

iVRI  TE  1  1  .770  3)  AL  AM.  nELT.  ALAMO 

7703  fqpmai  (3510. 4) 

WBITF  (  )  .  7  7  (.  A  ) 

7704  FOPHAH  1  IHGAIN  maTpJX) 

CALL  iUTP(MU.Hm,Ni),NM.A*,1) 

W-MTE  < 1 .7 7' 5) 

7705  fOPMA  r (?y (4H  ) ) 

W? I TE ( 1 . 7  7o6> 

7706  FOPMAT ( ISHPREDICTOp  OaINSI 
CALL  ouTP (Mu.hm.nu.NM.DFLK. | ) 

Hp)TF ( 1 ,7705) 

FNOF 1 1  F  1 
50?5  CONTINUE 
C  **•  HOOIF [FAT  IONS 
END 


FFOC  593 
FFOC  594 
FFOC  59S 
FFOC  596 
FFOC  597 
FFOC  598 
FFOC  599 
FFOC  600 
FFOC  t>0  1 
FFO^.  602 
FFOC  603 
FFOC  604 
FFOC  605 
FFOC  606 
FFOC  607 
FFOC  608 
FFOC  609 
FFOC  610 
FFOC  611 
FFOC  61? 
FFOC  613 
FFOC  614 
FFOC  615 
FFOC  616 
FFOC  617 
FFOC  618 
FFOC  619 
FFOC  620 
FFOC  621 
FFOC  622 
FFOC  623 
FFOC  624 
FFOC  625 
FFOC  626 
FFOC  627 
FFOC  628 
FFOC  629 
FFOC  630 
FFOC  631 
FFOC  632 
FFOC  633 
FFOC  634 


Figure  85.  Program  FFOC  Program  Listing  (Concluded) 


244 


oor>  o  o  o  o  o  o  ooooo  r>  ooooooo<*>r»r>r>r>o 


OVERf  YIK0N?.3.,M  0ATAK 

PROGRAM  UAT4K  DATA*. 

DATAK 

PUR°0  ‘F  -  TO  SET  UD  DIMENSIONS  /.NO  CALL  data  PREPARATION  programs  UATAK 
ANAL  I^  IS-A  F  KONAP/J  k  MAMESH-ThE  HONEV9ELL  INf.  DATAK 

DATE  ;P[TTtN  •  |R7c  DATA^ 

OAT  AK 

SUBPROGRAMS  CALLFO  DATAK 

OEpPM  DATAK 

EWi;M  DATAK 

00»4K  DATAK 

OFVOC  DATAK 

nL^A  DATAK 

rI  ,K  DATAK 

DATAK 

COMMO'i/ tNOUT/TP.  IR,  TPPJMT.  1‘lSr  Rl  *LOCATF.NDLL«MaRK  (?0)  .  DATAK 

1  JO  *  JS  •  J^O.  JF  •  JO  DATAK 

COMMOm  /INF/  NXM.NPM«'|UM,CDDc*HSl.MS?«MS'l.MS4  DATAK 

DIMENSION  S1(0os.)<i*  DATAK 

DIMENSION  A  (NXM.IIXM  )  .  •<  (NX'-*  «  yU’X  )  .C (NRM.NXM  >  .0  (NRM.NIUM)  DATAK 

DIMENSION  S?(17«>CT)  DATAK 

DIMEN  ION  BUNXM.NiiM)  .RP(NXVi,NiUMI  DATAK 

DIMEN' ION  Cl  <NRM«NxM)  .C'MMRm.NaM)  DATAK 

OIMENSION  01  1  <N»M*NUMl  .ok  (NOM.NPMi  .HKCO (NNM.NXm)  DATAK 

DATAK 

OIMENSION  CC(MXPM.NXRIJM)  .NAME(NXPIIM)  DATAK 

01  MENS  TON  STIJi'COl)  DATAK 

OIMENSION  S A ( 0 0  ' 0 l >  DATAK 

DATA  -.DO  I A  .  HDFFO  .  M0LS  A  /4MXDTA.  MMtFFO  »  »HfiLS  A  /  DATAK 

DATA  .PRIN/4HOOIN/  DATAK 

DATAK 

COMPUTE  ARRAY  START  INDEXES  DATAK 

DATAK 

NXRM3‘iXM«NRM  DATAK 

NXPUMtNXHM.NIJM  DATAK 

M 1  *  1  s  M?=«l  «NXM*N»M  A  M3=M->*MXM*NUM  t  «4=M3*MP'1*\JXM  DATAK 

M5=MM*NRM*NIJm  DATAK 

N1  o  1  *  N?=Nl  ♦NXM*'il|M  A  N3=N7*  -4XM*NUM  A  N«*sN3*NRM*mxm  DATAK 

N5*NM*NRM*NXM  f  N*1=NS«NPM*‘J'!M  t  N7=N6*N‘JM»NRM  a  N8=N7*NUM«NXM  DATAK 

Kl»l  +  K2*K  1  ♦MXRM*NXR(IM  DATAK 

K3sK?*NXRUM  DATAK 

DATAK 

CHECK  IF  SCRATCH  ARRAY  SI7ES  ARE  SUFFICIENT  DATAK 

OATAK 

IF(K3.GT.NA»NS=k3  DATAK 

IF( (MS.GT.MSU .OR. (NR.GT.MS5) )  DATAK 

ICALL  OEWRM  (M5,'»)ft  ,MS3»i1SR.MSl  «MS?*MS3*  MS4. 3. 0«4UOAT  A.4HK  .  IW)  DATAK 

DATAK 

CALL  °AT A  PRERAPATtON  PROGRAMS  DATAK 

OATAK 

IF (COGF «EU .HDOI A ) GC  TO  ibL  DATAK 

IE  (CONE. EO. HDFFO)  r,.-i  Tn  P6C  DATAK 

IF (COoF .EO.HDLS A ) GO  TO  36,'  DATAK 

CALL  --PRM(l,4H0ATA.4HK  O.v’.IWJ  DATAK 

160  CONTINUE  DATAK 

CALL  TDIAKIS] (Ml) ,CJ  <M?I ,S1 (MO) ,S)  (MM) .S2(N1 ) .S?(\?) .S2(N3)  DATAK 

I*S?(N.) «S2(N5> .S?(M6> .NXM.NSM.NIJM)  DATAK 

GO  TO  460  DATAK 

260  CONTINUE  DATAK 

CALL  'iFFOCISl («1 ) .si (MR) .SI (MO) ♦$! (M4> .S2(N1 ) *S2<N2) .52 (N3)  DATAK 

l .S?(N4> tS2(NS> ,S2(»I6) .NXM.NrM.MUM)  DATAK 

GO  TO  46C  DATAK 

360  CONTINUE  DATAK 


2 

3 


7 

8 
9 

10 
1  1 
12 

13 

14 

15 

1 6 
17 
lft 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 
3*. 

35 

36 

37 

38 

39 
•♦0 
Ml 
A? 
M3 
M4 
M5 
MS 
M7 
M8 
M9 
5g 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
6 1 
62 
63 
6m 
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n  n  o 


CALL  LS A ( ^  t  ('!  *  »5 )  ( M-* )  »S!  (  '  3  *  <31  l«4l  . S3 (Ml  )  .5? (N?)  • 62 ( M3)  OATAK  65 

1  «S?  Ut  -  >  «S?(N5»  *5?  c  >*»)  *5?  Ci7  )  «  x  ,rjo,MU.NX,‘1.N»Mt'!U*')  DATAK  66 

CALL  C  INK  (SHMO  .CM«|  ,51  (  >  ji  ,51  <M4)  ,5><<l  )  *S’(K?1  .  DATAK  6? 

|  MX  «NP  .  M' '  1  (  DATAK  68 

4 4.)  C 0 ■' l T  I  HP  DATAK  69 

DATAK  70 

QfTUR  TO  Maim  itVL-LAY  DATAK  71 

DATAK  72 

PMD  OATAK  73 


Figure  86.  Program  DATAK  Program  Listing  (Concluded) 


Define  Input/ 
Output  Parameters 

I 

Read  Input  Data 
Into  Input  Buffer  File 


t 

Read  Print  Specification 
and  Set  IPRIMT  FI ag 


Prin*  Input  Data 
(Call  IDPR) 


zmz 

Reorganize  Input 
Data 

(Call  IDRO) 


Print  Reorganized 
Input  Data 
(Call  IDPR) 


Print  Error  Message 
and  Stop 
(Call  ERRM) 


Figure  87.  Subroutine  KORG2  Flow  Chart  (Concluded) 
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SUPRO1  'T  IN£  «nur.> 

ANALY-'IS  -  A  F  KON\-  /  J  K  'A-jFSH  -  T  -tf  hONF  r  'Alr|_l_  INC 
DDRPO  r  -  TJ  O^'-A'IT/C  r  XEC'JT  1  'w  Or  KO\IP(iCT-?  P^0G(A“’b 

OATF  *itv  I TT  T'*  -  i'lLv  1  .75 

Simp*  -GRAMS  CAI.LFO 
10-:n 
in  p 

FP 


LAPELi 
IP 
I* 
IP 
IN 
LO' 
NU> 
M  A  - 
JO 
JS 
Jr>- 
JF 
JO 


Eo  anno- 


F J L f.  N  >  FOP  INPUT  DATA  -JErFR 
fill  rj..i  fjp  linf  pppiTF-. 

PRINT  CONTROL  FLAG 
H,->i,LrP!  Trt  I NSE 
HOLLFP I T m  LNCA 
POLL'"  PITH  HULL 
hOlLfh ! Th  T  +  .  .  t 

fIl_  •  FO*-'  JUAOJlPLf  ii '  T  A  FILE 
FJi.E  N  i  FQP  SCRATCH  F I L  c‘ 

FILE  NO  FOP  SOST3  F]L(.- 
EIlE  N--  F  Or»  FuATa  fjlf 
FILE  hi-  FOP  Of.)  AT  A  fj,f 


01  MEN-  ION  CAPO  (?")) 

COMMO  •/  INOUT/  ('->*  If- ,  I  PR  I NT  ,  iNSr.p  I.  LOCATE. NULL  . 

1  JO  «  JS • JSU .  Jf i JO 
COMMO  /INF/  UM.CO'ic 

INTEGi o  HINSF.hlOC’ *H'  ULL.hfOl3 

OATA  ‘■•INSE  *  HLOCA « HNNLI.  •  pt‘.)Ot_P/-  H I NSF  .  4-n.OC  A  •  4~lh' 'LL  •  AH4I  kt./ 
OAT  A  pPR IN.HTHIN.HfPVT/^HOPtN.phThIN.PWFKYT/ 

DATA  hTPUT  »HNA|_  «HP|  'T/4HTP')T  .  4-iNAl  .4hRi|T  / 

DATA  pODI  A«  HOFEO*  HoLSA/ah-FOI  A  .-.HJ-FF  0*  A/ 

OATA  hO$TG/<*H$STC-/ 

OATA  --C/IHC/ 

OEFIN--  INP  JT/0'ITPHT  P A P A  T E f f f< 0 

10  =  7  *.  I  w=9  i  I PP I ’‘T=4  3  JO-=t>  -S  JS=5  f  Jsh=?  »  JF  =  1  *  JO=F> 
INSEBt  =  hIMSF  *  LOC-'TE  =  hLO,~A  j,  NULL  =  HNJLi 

no  lu  i  =  i. ?•< 

MARK  l  >  )  =HJOLR 
100  CONTI  iUE 

RFAD  INPUT  OAT  A  I*  TO  rh=UT  OATA  nUFFE-}  FILE 

1  10  CONTI  TIE 

READ  I'.,  |  ?" )  CAPO 
IF (EOF (A) l 1 4  J . 1 1 E 
115  CONTI-  'JE 

WRITE ( IR. l?jirA»t> 

120  F0RMAT(2TA4) 

130  format (Al. A3) 
r,0  TO  ll 
140  CONTI  TIE 
ENOFIl  F  IR 
REWIN. '  IR 

READ  -’PINT  SPECIFICATION  A  N'T  ff.t  JPRJnT 

142  CONTI-tjf 

RF  AO ( to, !?•  )  CARD 


KQP62  2 
KORG2  3 
K0RG2  4 
KORF,?  5 
KORG?  6 
K0RG2  7 
KORG?  8 
KORG2  m 
K0RG2  10 
KORG?  11 
K0RG2  12 
KORG?  13 
K0PG2  1-* 
K0RG2  IS 
KORG?  1 8 
KORG?  17 
KORG?  1 n 
kORG?  19 
K0RG2  20 
K0RG2  2| 
k 0PG2  22 
KORG?  23 
KOPG?  2h 
KORG?  25 
KORG?  2o 
KORG?  27 
KORG?  28 
KORG?  29 
K0RG2  30 
K0RG2  3i 
KORG?  32 
KORG?  33 
KOPG?  3 -♦ 
KORG?  35 
KORG?  36 
KORG?  37 
KORG?  38 
K0PG2  39 
KORG?  40 
KORG?  81 
K0RG2  4? 
KORG2  83 
K0RG2  84 
KORG?  45 
K0.RG2  46 
KORG?  47 
KORG?  46 
KORG?  49 
KORG?  50 
KORG2  51 
KORG?  52 
KORG?  53 
K0RG2  54 
K0RG2  55 
KORG?  5e> 
KORG?  57 
K0RG2  58 
K0RG2  59 
KORG?  60 
KORG?  61 
KORG2  6? 
KORG?  63 
KORG?  64 


Figure  88.  Subroutine  KORG2  Program  Listing 
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U  OU  UUU  UUU  UU  U  u  uu 


Of COO^  <4*13  i.CAPD  111)  rc.O'WiY 
if <cc.fo.mc)c.o  to  u; 

IF  (C*  '0<  1)  .NE.H°Rtf'ir,n  To  1=;? 

IF  (CA-jrjoi  .fo.mTmIm»IPPINT=  , 

IF<CA->n<3)  ,F0.MTH1‘  ir,0  TO  K? 

IF  (CA'-D  (  3  I  .fcO.HOmi  I  up  I N  T  =  a 
IF  ICA^O ( 3 ) .EO.HERTTIGn  TO  luZ 
IF(CA^OO)  .NE.HTPtinOO  TO  144 
IFdP'JINT.eo.I  )  IPRinT=5 
IF(IPu>inT.F0.S»O0  to 
IPRINIO 
C.O  TO  142 
144  CONTI  |UF 

IF  <CA'>0  <  3 1  .NF  ,M\|AL  1  GO  TO  |4* 

IF(IPPINT.eU.I) IPBTNT=4 
IF(IPPINT.FQ.4>C,0  TO  14? 

IPRINTs? 

00  TO  14? 

146  CONTINUE 

IF(CA40(3) .ME.hootiOO  TO  14a 
IF(|PMNT.E0.?1 IP»1NTsh 
miPPINT.EQ.4tn0  TO  14? 

IF ( IPp INT , EQ . 3  I IPRiNTsS 
IFIIPoINT.CO.S)  C.O  TO  142 
I  PR  IN’  *  1 
no  TO  142 
148  CONTINUE 

PRINT  ERROR  MESSEG^ 

rfPITE(IW.ISC) 

150  FORMAT ( 1 H 1 .//. | x,3  hPPINT  C ARC  SPECIFICATION  ERROR. //.JX. 

143H1N<?UT  ANO  FINAL  OUTPUT  DaTa  WILL  8£  ®»?NTfOl 
152  CONT  I'iUE 
RCWINO  IR 

PRINT  INPUT  DATA 

IF  1  (I°RINT.NE.l  1  .A»i0.  (IPRlNT.t_T.41 100  TO  I5« 

WRITF'i  IR.J54) 

154  FORMAT ( 1H1 .//. 1 X .?4M***  INPUT  DATA  CAROS  •**.//» 

CALL  IOPRUR.IW) 

WRITE ( IW« 156) 

156  F0RMAM//.1X.3IH***  ENO  OF  INPUT  DATA  CAROS  ••«.//) 

REWINO  IR 

158  CONTINUE 

reorganize  input  data 

CALL  IORO< IR.IW. JS) 

PRINT  REORGANIZED  INPUT  DATA 

1F<  JPvINT.LT. Mf,0  TO  |64 
WRITE  < IW» 160  ) 

160  FORMAT ( 1H1 »//« i X. 3*H**«  HF  ORGAN  I Zf 0  INPUT  DATA  ***./✓) 
CALL  IDPR(IB.IR) 

WRITE ( IW» 16?) 

162  FORMAT (// «1X.37h**»  END  OF  REORGANIZED  INPUT  DATA  *•*,//> 
164  CONTINUE 

READ  INPUT  DATA  CARDS 

159  CONTINUE 
PEAD(?P.I2\»)  CARO 
IFICAPOll)  .EO.HPRIi')  r.O  TO  t5R 


KORG?  6S 
KORG?  66 
KORG?  67 
KORG?  6(J 
KORG?  69 
K0RG2  70 
KORG?  7 1 
KORG?  7? 
KORG?  7  J 
KORG?  74 
KOBO?  75 
KORG?  7b 
K0RG2  77 
KORG2  78 
KORG?  79 
K0RG2  80 
K0PG2  d 1 
K0RG2  82 
KORG?  63 
KORG?  84 
KORG?  85 
KORG?  86 
KORG?  87 
K0RG2  68 
KORC.2  89 
K0RG2  90 
K0RG2  91 
K0RG2  9? 
K0RG2  93 
KORG?  94 
KORG?  95 
K0RG2  96 
K0RG2  97 
K0RG2  98 
K0RG2  99 
KORG2100 
KORG2101 
KORG2102 
KORG2103 
KORG?) 04 
K0RG2105 
K0RG2)0o 
KORG?) 07 
KORG? 108 
K0RG21 09 
KORG2110 
K0RG21 1 1 
K0RG2112 
K0RG2113 

K0RG2114 
K0RG2115 
KORG?) 16 
KORG21 1 7 
K0RG2116 
K0RG2119 
KORG? 120 
KORG21Z1 
K0RG2122 
K0RG2123 
K0RG2124 
K0RG2125 
K0RG2126 
K0RG2127 
K0RG2128 
K0RG2129 
K0RG2130 


Figure  88.  Subroutine  KORG 2  Program  Listing  (Continued) 
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d  r>  o 


IF  CCA  JO ( 11 .FO.hOSTOI  RETURN 

if  (ca  >0 ( i )  •' o.ur>r>i £ i  on  to  ia. 

IF  (Cfi  '0( ! )  .FO. Merrill  oo  TO  2-  ? 

IF (CAvni n .^O.HOLSA)  O 0  TO  TO. 

CALL  rPRM  (  I  .AH*OPOt AH?  •<).).  n*> 

CALL  OVERLAY  LOAOFP  To  LOAO  SpOUIPFO  PROGRAMS  oOR  EXECUTION 

180  CONTI  iUE 

cor>E=cARr><  1 1 

CALL  >VERLAY(ahkON^.1.0> 

CALL  iVERLAY  (4IJK0N5, 1  •") 

00  TO  I5R 
26C  CONTI  ME 

C0DE=rARD (  1 ) 

CALL  ■*'VEPLAY  (4MK0N’.3.»,1 
CALL  'VFRL  A  Y  1 4MK0MR*  ?hI 
GO  TO  1  SR 
360  CONTINUE 

cor>F=rA»i)< 1 1 

CALL  >VEwLAY(AwK0;P.3.l) 

GO  TO  1S9 
ENO 


K0RG2131 
K0RG2 1 32 
K0RG2133 
K0PG2 1 34 
K0RG2135 
K0RG21 36 
K0RG2137 
K0RG2138 
K0RG213R 
K0RG2140 

K0RG2141 

K0RG2142 

80RG2143 

K0RG214A 

K0RG2145 

K0RG2146 

K0RG2147 

K0RG2148 

K0RG2149 

KORG2150 

K0PG21SI 

K0RG21S2 

K0RG2153 


Figure  88.  Subroutine  KORG2  Program  Listing  (Concluded) 
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*T  INf  T  IM^P  (  A  , G2.H0K  .X.AT.DX.OaI.Xl  .G'NGStR.  ITITLt 

l  tUMI  T  .  CL«T  .(,!T.  ST.  YMAx*  yM»iN.  I*"LT.  JPJN.  l  DATs  , NS TEP»NftANU« NPLOT 

?NoPIN.NN«NX»NF.NG.fiC»N<»»MXfi.M'J,MA.MXRSP.N0o.NAlEl»NAME?.5CAL»NEWY 
3T1.T2.NGLG) 

D  IMEN<'  I  ON  A  (MX  .t’X)  ,G?(MX**«N)  .>-r)K  <MA.MA>  .A  <MX)  .l)A  (MA  >  *0X1  (,4A» 

OtMFN  ION  XI  (MX  .PN>  »X|_  (VX.2)  .  GN  ( M  »  «  an  )  ,  r>5  (  Ma  .  MN  )  *  R  (  MaRSP  ) 

DIMENSION  1PLR ( mxp  > .  I T  I TL (Mxh i , IUNI T ( War) • muE (  15)«LW<10) 

0 I  MEN‘-‘  I  ON  YMAA  (MAR)  .YMINMaR)  .CL  («Ni  \ ) 

OIMEN- ION  SCAL  (ma=) 

OI«EN  ION  NPWY(4R) 

INTFGcP  BLANK 
RUNs  I  BIN 

If (NO  ‘.GT.il  GO  TO  ?2 
WPJTE (9.?  '31 

?P3  E0RMAMIM1/7X.44HMO.  or  PLOTS  IS  ZERO  -  IGNORE  T 1  RESPONSES) 

»FTUR 

22  WRITE (Q.|j?) 

102  FORMAT  (1H1/7X,1AMT!’-*F  RESPONSES// 1 
RLANa^I  h 
LW(|)rl  r>« 

LW ( ? ) -  1  '  H  o 
L  M'  (  3 1  •=  1  H  * 

L W  ( 4 )  =  ]  ,r\  » 

LW (5 ) s 1  iH  * 

L  “M  ft )  s  1  :  h  <> 

LW ( 7 ) t l  h  * 

L  W  (  S )  s  1  •  M  * 

LW(9) si  H  » 

LW  ( 1  CM  =  I>;h  <> 

NSTFRsO  NO  STSP  INPUTS 
*1  STEP  COmm ANUS 
-?  STEP  GUSTS 
=1  ROTH 

sa  NO  STEP  INPUTS  -  TRANSIENTS  ONLY 
NPANOsC  NO  R ANOOM  INPUTS 
NRAND=l  GUSTS 

N°R I N*0  DONFT  PRINT  RESPONSES 

NPRIN*1  PRINT  RESPONSES 

NDLOTsC  NO  PLOTS 
NPLOT 5 l  CALCOMP  PLOTS 
NPLOTs?  LINE  PRINTER  PLOTS 
NPLOTsI  ROTH 


NSTFPsO  NO  STfP  INPUTS 
*  I  STEP  COMMANDS 
-?  STEP  GUSTS 
51  ROTH 

SA  NO  STEP  INPUTS  -  TRANSIENTS  ONLY 
NRANOsf  NO  KANOOM  INRUT S 
NRAN0=1  GUSTS 

N°RlNsfl  OONFT  oo | NT  RESPONSES 

NPRIN*1  PRINT  RESPONSES 

NDLOTsC  NO  PLOTS 
NPLOT s  1  CALCOMP  PLOTS 
NPLOTs?  LINE  “PINTER  PLOTS 
NPLOTsl  ROTH 
I3UF< l IsIOATE 
IRUE( ’) sRLANK 
I  SUE  (l»=NAEF.l 
IRUEI  -.  )=NAME2 
I PUE  (s )  =1  .;H  FLIGHT 
IRIJF(S)sli.‘H  CONDITION 
IF(NP'  OT.EO. J.0R.MOL0T.EU.2)  GO  TO  ? 
CALL  f  ACTOR  ( ? .  ■) ) 

CALL  ’lOT(,-,.-l3.«-1) 

CALL  f’LOT  (i>.»ft,5*“i) 

CALL  SVMBUL . 1*« 1SUF ( | ) • 9 0 • 1 4 0 1 
CALL  ;YM30L  (  .5,0.  • .  14,  I  bus  (S>  ,9(i..?U> 
CALL  SYMBOL ( .5, 3. , . 1 4. JFLTt Rfl , » 1 0) 

CALL  TYMBOL  <  1  .  • .«.  1 4. 3HRUN.9  ..3) 

CALL  ';UMR£R  ( 1  .  .  .ft.  .14.  RUN. 90. .-1) 
CALL  PLOT ( 1 .5 » 0 . »-1 ) 

IFINPl.OT.EO.I )  GO  TO  1 
2  WRITE  (9. 1  !>0)  (IBIIF(I>.I*l,ft>,[FLT.IRUN 
FORMAT (2X*6A10«PX, A 10.2X*  THPU  Jt I3//1 
1  CONTINUE 
00  3  T=1,NX 


timer  2 

.TIMER  3 
♦TIMER  4 
TIMER  s 

timer  ft 
timer  t 
timer  b 

TIMER  9 
TIMER  10 

timer  n 
timer  1? 

TIMER  13 
TIMER  14 
TIMER  IS 
TIMER  16 
TIMER  17 
TIMER  IB 
TIMER  19 
TIMER  20 
TIMER  21 
TIMER  22 
TIMER  23 
TIMER  24 
TIMER  25 
TIMER  2ft 
TIMER  27 
TIMER  2fi 
TIMER  2S 
TIMER  30 
TIMER  31 
TIMER  3? 
TIMER  33 
TIMER  34 
TIMER  35 
TIMER  3ft 
TIMER  37 
TIMER  3B 
TIMER  39 
TIMER  40 
TIMER  41 
TIMER  42 
TIMER  43 
TIMER  44 
TIMER  45 
TIMER  46 
TIMER  47 
TIMER  43 
TIMER  49 
TIMER  50 
TIMER  51 
TIMER  52 
TIMER  53 
TIMER  54 
TIMER  55 
TIMER  56 
TIMER  57 
TIMER  58 
TIMER  59 
TIMER  60 
TIMER  61 
TIMER  62 
TIMER  63 
TIMER  64 
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no  .3  Jsl.NN 

TIMER  65 

ON  (  I  •  I )  =  o  . 

TIMER  66 

3 

0S<  I.  n*0. 

TIMER  67 

N5fi=N< 

TIMER  6rt 

IF (NSTEP.E0.41  fiO  TO  7 

TIMER  69 

IF  (NPSNI1.EO.01  r.O  TO  4 

TIMER  70 

N*NF  *  1 

TIMER  71 

NFfi=N • -NC 

TIMER  72 

ETA=fi~AN< l ) 

TIMER  7 J 

00  S  isN.NFr. 

timer 

00  5  1*1. NM 

TIMER  75 

5 

ON (  I »  n*02t  i  »ji /sort  ton 

TIMER  76 

fiO  TO  1 t 

TIMER  77 

4 

NFfi=Nf 

1IMER  76 

10 

IF (NSTEP.rO. ?l  fiO  TO  4 

TIMER  79 

IF(NSTFP.EO.O)  00  TO  7 

TIMER  BO 

00  A  l*| »NF 

TIMER  81 

00  A  1=1. NC 

TIMER  62 

Jfi*J«  \ifi 

TIMER  53 

JJ*J«'.X-NC 

TIMER  6“ 

A 

fiSt I.  Ifi) =A  t I • JJ1 *CL  t  JO* 1 1 

TIMER  B5 

IF (NST f P.NC • 3 1  00  TO  7 

TIMER  86 

6 

NFG*NF  *NfiLfi 

TIMEP  87 

7 

continue 

TIMER  6A 

WRITE  tQ.IM  I  NOP 

TIMER  89 

101 

FORMA* <7X.  9HTHFPE  APF.I3.21H  RESPONSES  TO  COMPUTE//! 

TIMER  90 

NT*T/  iT 

TIMER  91 

S*N  f 

TIMER  92 

S*S«0T 

TIMER  93 

IF (S.;  T.T)  NT=NT ♦ 1 

TIMER  94 

NT  =NT  »  1 

TIMER  95 

NTP=ST/nT 

TIMER  96 

s=ntp 

TIMER  97 

S*S»DT 

TIMER  9H 

IFtS.l T.ST)  nTP=NTp*1 

TIMER  94 

IF (NTn.EO.O)  NTP=l 

TIMER100 

NTTP="T/NTP 

TIMER101 

NTTP*  ,  T  TP  *  1 

T1-ER102 

NPTOT  *(■ 

TIMER  103 

00  1?  J*1.NN 

TIMER  104 

IFtNS'FP.EO.4)  00  TO  51 

TIMER10S 

IF(J.oT.NG)  fiO  TO  4 1 

TIMER106 

IFtNR^'O.EO.O.  ANO.NSTFP.EO.il  fiO  TO  12 

T1MER107 

00  TO  51 

TIMER106 

41 

IFINSTfp.EO.O.op.nsTEp.FU.?)  SO  To  12 

TIMER109 

SI 

no  u  1=1. NX 

TIMER110 

X (I >*< I < I. J> 

TIMER111 

It 

OKI ( 1 1 . 

TIMERH2 

IFtJ.1  F.NG1  fiO  TO  46 

TIMEW1 13 

IF(NSTFP.eO.'l)  r-0  TO  54 

TIMER  114 

IF(NSTEw.e0.7l  00  TO  c  6 

TIMER115 

IFtNSTFP.EQ.41  fiO  TO  =6 

TIMER1 16 

JJ«J.mX-NC-NF. 

TIMER  117 

X  t JJ) *CL ( J. 1 1 

TIMER118 

56 

CONTINUE 

TIMER1 19 

IF(NP;IN  . E 0 .  1 1  OO  TO  ?4 

TIMER120 

WRITE  (9,1  '.31  1 

TIMER121 

103 

FORMAT ( lHl/7X.7rHTTME  PfSPOlS.S  FOR  01STURHANCF . 1 3// ) 

TIMER122 

24 

00  17  IT*!, NT 

TIMER123 

IF  <  J.r.T.Nfil  GO  TO  )3 

TIMER124 

IFtNSTFP.LF.il  GO  TO  45 

TIMER125 

IF (NStfp.0T.3i  go  to  55 

TIMER126 

CALL  ,  GUST  (  A.GS.CL.X.r,  T.T  l  .  T2  ,  J.NFG.  NG.  1T.M*  .H'  • » 

T 1MER 127 

55 

CONTI  'UE 

I IMER128 

IF ( NR • NO.EO. 0 1  GO  TO  13 

TIMER129 

ETa=G JAN (  1 1 

TIMER130 

Figure  89.  Subroutine  TIMER  Program  Listing  (Continued) 


253 


go  tc  i<. 

13  FTA=c. 

14  no  is  !  *  i  «nf g 

OX  (  !)  =  G.\|<  1 .  J)*FTA»gS< l « J> 
no  S?  k=i,nfg 

5?  OX ( I > tDX ( I ) .4 ( I .K  t  ox (X 1 
I F  <  XL  < I «  2 1 ,LF  •  J  .  1  r.o  TO  IS 

IF  <  ap  ox  ( 1  >  i  ,r,T  .XL  <  1  •?)  >DX  <  1 1  xSlr.Nm^ <  |  .?>  ,OX  <  I  n 

15  COMirilF 

no  is  i  =  i » nf g 

X(  I  >*x  t  I )  •DT*<n.*rjx  ( I  >-0X1  < I ) >/2. 

nxi ( 1 1 =ox  ( 1 1 

IF  (XL  (  I  .  I  )  .LS.'i.  )  GO  TO  14 

IF ( AH  U  X( 1  * ) .GT.XL ( I • 1 >»  X ( I >  *SI6N1 XL  U  « l >  *  X 1 1 > ) 

1<S  FONT  l  il)E 

IFINTo.EO.l)  GO  TO  1« 

ITMsMnOl IT.NTP) 

IF(IT<.Nf.ll  GO  TO  17 
ITT: ( | T/NTP) ♦ | 

18  IF<NT=.E».I  »  I  T  T  =  I  T 
1 1  =  I  T  T -NTTP-? 

10  =  1 

no  ir  i*i.nr 

IF( IP.GT.N0P1  GO  TO  27 
I F  (  I  Pi  P  (  IPl  .NF  .  I  1  GO  TO  IP 
11*11 *  N  T  T  P  ♦  2 

p  <n>  =  : . 

no  ?o  *  * l .nx 

20  P(  1 1  I  rRI  I  I  I  »HOK  (  I  .K  )*x  (M 
R<I!>*RCII>«SCM.  I1P1 
IP=1P.1 

19  CONTP.IIE 

no  ?l  I  *  1 «NFG 

I  X  =  I  *.p 

I F (  IP.GT.NOP)  GO  To  27 
I F ( I Pi  P ( I P 1 .NE.IXI  GO  TO  ?1 
II«II»NTTP*2 
9(in=x(n*scAL  up) 

IPxIP.l 

21  CONTIMIE 

23  II*  1 1  *NTTP*2 
T I  ME  =  T  T  T— 1 
TINE=TIME»ST 
RIIDsTIME 

IF(NP=IN  .£0.0)  GO  TO  17 
WRITE  (9.21/2)  TIME 
202  format (SX.phtimf  s.rln.3) 

200  FORMAT (SX.4(A1C.2Hs  (08.2.2x1) 

I°R*  I  TT 
K  =  -3 

DO  26  I NP* 1 . N0P  .4 
K  =K  .4 

IPP1=tPH»HTTP*’ 

IBP2=toRI .NTTP.2 
IPR3=|PR2*NTTo»2 
KKsK ♦ i-NOP 

IFIKW.LE.O)  GO  TO  S4 

IF(KX.fiI.T)  WRT  TF  I P.  2i)'l )  I T  I  Tl  (Xl  .R  (I  »R ) 

IF1KK.FQ.2)  WRITE  I  7.2,70)  IT  ITL  (K)  .R(  I3R)  .  ITITL  (X.  1  )  ,R  (  1PP1  ) 
IFlKK.ro. II  WRITE (9.200)  ITiTl«K).R(IRR).ITITL(«*1)»R(IPRI) 

1  •  I T ! T*  (K«2) »R( T PR 2 ) 

GO  TO  ?6 

S4  WRITE(9.2iiO)  IT  !  TL  IK )  .  R  ( IPO )  ,  I T I  TL  <<♦  1  >  •  R  ( IPR)  I  .  I T I  TL  I  K*2)  . 
IR(IPR’) «ITITL(K«3) .R1TPR3) 

26  IPR*IPP7*NTTP*2 
WRITE  (9.2»>l ) 


TIMER131 
TIMER132 
TIMER133 
TIMER  1 34 
TIMER135 
TIMER136 
TIMER137 
TIMER138 
TIMER139 
TIMER140 
TIMER141 
TIMER142 
TIMER143 
TIMER144 
TIMERI45 
TIMER146 
TIMERI47 
TIMER148 
TIMER149 

timeriso 

TIMER151 
TIMER1S2 
TIMER1S3 
TIMER154 
TIMER155 
TIMER156 
TIMER157 
TIMERI58 
TIMER159 
TIMER160 
TIMER161 
TIMER162 
TIMER163 
TIMER164 
TIMER165 
TIMER166 
TIMER167 
TIMER168 
TIMER169 
TIMER170 
TIMER171 
TIMER 172 
TIMER173 
TIMER174 
TIMER175 
TIMER176 
TIMER 177 
TIMER178 
TIMER179 
TIMERISO 
TIMER1B1 
TIMER182 
TIME«1S3 
TIMERI84 
TIMER18S 
TIMER186 
TIMER187 
TIMERI88 
TIMER189 
TIMER190 
TIMER191 
TIMER192 
TIMER193 
TIMER  194 
TIMER195 
TIMER196 
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201  FORMAT  <  IH>.  1 

it  cont i  ‘ue 

i r < npi  or. to. cm  no  to  i? 
imnpiot.eo.I)  no  to  v' 
mpi re i q* l j 

DO  32  *=1.NQP 
OO  31  1  =  1. IS 
31  1 RUF  ( I ) =HL  ANK 

IFinE  Y(K).EO.O)  n-|  Tn  33 
YWAX (<) =-l  .£♦><) 

»H1NI<I«  l.f.P'J 
00  34  L=1 .NTTP 
I»(K- • 1*(NTTP*?>  »L 
YMAK ( * ) = AHA A  I  ( YM AX  IK  ) . R (I  )  I 
34  YM IN  <  < I “AMINI  ( YMlNfK I ,R (  1  )  ) 

33  CONTI  ,UE 

IF (YMIN(K)  .EO.YMAXIK) *  GO  1 0  32 
RANGE=YMAA  (KI  -  YMIN  (K) 

JRIIF  <-«>  =  ITITL(*> 

IRlJF(r)  =  IUNIT(K) 

WRI.TE  (9. 1 04)  ( I«nr  ( i )  .  i*i  ,5* 

104  FOPMAT ( iMl/SAin//) 

I  RUF  CM  “BLANK 
IRUF(*)=RLANK 
XII )=YMIN(K) 

no  3b  i  =  i. s 

36  XlI»l>=A(I).R4*|OE/S. 


T1MEM197 
T  IMEW1VR 
T  IMEP199 
T1MER200 
TIMER201 
TIMER202 
TIMER203 
T1MEP204 
T1ME»?0S 
T1MER206 
TIHEP207 
TIMEP208 
TIMER209 
TIMEP210 
T1MEP211 
TIMEP212 
THEP213 
TIHEP214 
TIMER21S 
T!MER21b 
TIMER217 
TIHER218 
T1MER219 
T 1MER220 
TIMER221 
T1MER222 
TIMER223 


WRITE  *9. 1 1 5)  (All). I  =  i,  6) 

105  FORMAT (6F14.3) 

WRITE  <9, 1 06) 

106  FORMA’  (  7A.?h  I  .S  (  UH- - - 1  > 

00  37  l*1»NTTR 

I  * (K“ 1 ) • (NTTP«?I »L 
IF  (RA’iGE «EQ . 0 •  )  GO  TO  4? 

LL*(R( I)-YMIN(f )) *70. /RANGE 
IFILL.EO.Ot  GO  TO  u? 

INL*L|  /10 

IFIIN’.LE.O)  1NL  =  9 
IF  (IN'.  .GT.U)1NL  =  I) 

IW=MO" ILL. 10) 

IF ( IW.LE.3I  GO  TO  40 
IFdNl.EQ.O)  GO  TO  S3 
00  3R  1=1. INL 

38  IBUF<n*BLANK 

S3  IRUF ( 1 ML* 1 ) “LW  < I W) 

IB=INl*2 
00  39  1=18.15 

39  IRUF ( 1) “BLANK 
GO  TO  45 

40  IW*10 

IW>10 
ie-iNL-i 
00  43  1  =  1, IE 

43  IBUF ( 1 ) “BLANK 
IBUF  < IE*1 >=LW I IW) 

IB-IE‘2 

00  44  1=18,15 

44  IBUF ( I ) “BLANK 
GO  TO  45 

42  IBUF ( I ) =LW ( 1 ) 

00  46  1*2,15 
46  IBUF<T>=BLANK 

45  TIME  =L-1 
TIME=TIME*ST 

WRITE (9, 107)  TIME, (IBUF (I)  ,1  =  1 ,12) 
107  FORMAT <F6. 2, 3HS  1.3  PA  101 

Figure  89.  Subroutine  TIMER 


TIMER224 

TIMER225 

TIMER22o 

TIMER227 

TIMER228 

TIMER229 

TIMER230 

TIMER231 

TIMER232 

TIMER233 

T1MER234 

TIMER235 

TIMER236 

TIMER237 

TIMER238 

TIMER239 

UMER24U 

TIMER241 

TIMER242 

TIMER243 

TIMER2“4 

TIMER24S 

TIMER246 

TIMER247 

T1MER248 

TIMER249 

TIMER250 

TIMEW251 

TIMER252 

TIMER253 

TIMER254 

TIMER255 

TIMER256 

TIMER257 

TIMEH258 

TIMER259 

TIMER260 

TIMER261 

TIMER262 

Program  Listing  (Continued) 


DO  47  1  =  1  .  IS 

47  IBUF < t ) =RLANK 
37  CONTINUE 

32  CONTINUE 
30  CONTINUE 

IF(NP( OT.EQ.2l  GO  TO  17 
FJ*J 

CALL  SYM80L(0.-0.-.14.30HTIiE  RESPONSES  FOR  D  l  GTURBANCE »90 • *  30) 
CALL  'UMBER <0. .S. .  . 14.FJ.90. .-1  ) 

CALL  PLOT (l.<0.,~3) 

IARX*uOP  • (NTTP *2 ) ♦ 1 

no  4a  k*i,nop 

IF  (NE>/Y  <K  )  .EO.O)  GO  To  49 
IAR* (S-t >•  INTT°»2) ♦! 

CALL  SCALE <R< I4R) .B..NTTP, 1  * 

CALL  SCALE (R ( I ARX ) . I0..NTTP.1) 

GO  TO  SO 

49  IAR=K“(NTTp»?)-l 

IF(YMINIK) .EO.YMAX(K) )  GO  TO  48 
R( lARt  xyHIN(K) 

R  < IAR* 1 )s(YHAX(K)-YMlN(K) )/8. 

IAR«IaPX*NTTP 
R  ( I AR ) =0. 

R<IAR*1)*T/10. 

50  IBUF(])*ITITL(K) 

IBUF ( 7) =BLANK 
IBUFCM*IUNIT(K> 

IBUF (  a  )  =  1 OHT I  ME  IN  SE 
I BUF  <  S ) * 1 OHCONOS 
1AR*K*(NTTP«2)-1 

I  ARP*  I  AR* I 

CALL  aXISIQ.'O.i  IBiifii  i  .  30 . 8 .  »9g  .  •  R  ( 1  AR )  .RIIARp)) 

I AR*  I  ARX’NTTP 
I  ARP*  [ARM 

CALL, AXIS<0.»0.*IBUFI4) . -20 . 1 0 . • 0 . ,R < I AR) .« ( I  ARP  I ) 

IAR*(k-D«(NTTP*2)*1 

CALL  LINE (RtlARX) , B ( l AR ) »NTTP»1*0»0) 

CALL  pLOT (13. >0., -3) 

NPT0T=NPT0T*1 
IFINPTOT.LT. 5)  GO  TO  48 
NPTOT=o 
CALL  DSP ( 2 ) 

CALL  PLOT (0..-13..-3) 

CALL  PLOT (0..0.5.-3) 

I BUF  < l ) * IDATE 

IBUF  <  ?) *BLANK 

IBUF ( 3) *NAM£l 

IBUF (4) *NAME2 

IBUF  < S ) *10H  FLIGHT 

IRUF (M  »10H  CONOI T ION 

CALL  SYMBOL (0..0...14.1 BUF ( 1 ) .90.. 40) 

CAUL  SYM80L(.5.0...14,IRUF(B) .90.. 20) 

CALL  SYMBOL (.5. 3... 14, IFLT.90.,10) 

CALL  SYMBOL  d.,0.,.14. 3HRUN.9C • »  3) 

CALL  NUMBER  (|..  .6, .14.  RUN,9,j.,-l> 

CALL  PLOT ( 1 .5,0 . .-3) 

48  CONTINUE 
12  CONTINUE 

RETURN 

ENO 


TIMER263 
TIMER264 
TIMER26S 
TIMER26B 
TIMER267 
TIMER268 
TIMER269 
TIMER270 
T1MER2T1 
TIME«*272 
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TIMER274 
T1MER275 
TIMER276 
IIMER277 
TIMER2T8 
TIMER279 
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SUBROUTINE  SGUST (A,GS.CL*X*dT*T1»T2*J»NF.NG«IT •  MX  «*N) 

SGUST 

2 

DIMENSION  A(MX.MX) .GS (MX.MNl .CL<MN. 1 >  «X (MX) 

SGUST 

3 

IfdT.GT.n  GO  TO  l 

SGUST 

4 

J  J*  J»’(F 

SGUST 

5 

00  5  f  *  1 • NF 

SGUST 

6 

GSU.I)*A(I.JJ)«CL(  J*l) 

SGUST 

7 

X(JJ)-*CL<J.1> 

SGUST 

8 

NDl*Tt/0T 

SGUST 

9 

N0?«T?/DT 

SGUST 

10 

S*N0l*0T 

SGUST 

11 

IFIS.i  T.T1I  NDI =NOl  ♦  1 

SGUST 

12 

s*nd?»dt 

SGUST 

13 

IMS.lT.T2)  NO’^NO? ♦  1 

SGUST 

14 

N01 *NO 1  *  1 

SGUST 

IS 

N0?*Nn?*l 

SGUST 

16 

IFdT.LT. NDI)  RETIJPN 

SGUST 

17 

IFdT.GT.NOl)  GO  TO  ? 

SGUST 

18 

JJ»J*-IG»NF 

SGUST 

19 

00  1  f*l«NF 

SGUST 

20 

GSd.  l)=OSd.J)»AdtJJ)»CL(Jd> 

SGUST 

21 

X ( JJ) *CL < J* 1 > 

SGUST 

22 

TMIT.NE.N0?)  return 

SGUST 

23 

JJ«J*3*NG«NF 

SGUST 

24 

DO  4  |*1 «NF 

SGUST 

25 

GSd  •  ))  *GS  (  1  «  J>  ♦  A  (  I  .  JJ)  «CC  <  J«  1 ) 

SGUST 

26 

X(JJ)=CLU.U 

SGUST 

27 

RETUR'i 

SGUST 

28 

END 

SGUST 

29 

Figure  90.  Subroutine  SGUST  Program  Listing 
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SUPPO'T  INE  CA(_  I  ( A.XN»I,.KWA,'vi,MR.  IMAX.  IT.  IE9°.Ef  > 
DIMENSION  A<NP.  1  )  .  xNINP.  1  )  ,“<  <|P,  1  1  •  <NM> 

IF9P  = 

TP.o. 

DO  3C  1=1. N 

300  TO.TP.AU,  p 
FN*N 

TO. AM  AX  1 (TR.-FM) 

IF(TPt3Jl»?»2 
2  1FPP=] 

CO  TO  A'l 

301  ALF=AJS(TR)/FN 
NC*N» <N»1 ) 

NC=NC/? 

00  60  1  =  1. N 
00  63  J=1»N 
GOTO  (61,6?) .IT 
61  B(l.JisAU.J) 

GOTO  S3 

6?  0(i,j)=A(J,I) 

63  CONTI* lUE 

p(i.n=p(i.n-ALE 
60  CONTINUE 

CALL  T 0 INVR  (  1S0L.  TCSOL  .N.N.o.AiR.KKA.llET  > 

IE ( ( I sOL* I OSOL > .LE . 2  >  GO  TO  2? 

1E»«=t 
GO  TO  6  .1 
22  00  A  1  =  1. N 
00  A  i=l. N 
a ( I , Ji =r , 

00  A  *  =  l.N 

A  AU,J>sA(I.J)*°(K.n#XN(K,Jl»?.*ALF 
DO  5  l=l.N 
00  5  1=1. N 
»N(I,  11=0. 

00  5  •<  =  1  .  Ill 

5  XN(I,  II  =XN  ( I  .  Jl  ♦  A  <  T  »K  >  *P  (t*  .  J) 

00  7  1  =  1,  M 
00  3  1=1, N 

8  P(I,Jl=P<I.Jl*?.*ALF 
7  P(I.I1*P(I,I)*1. 

I  TEP  = 

100  CONTINUE 
00  9  1=1, N 
DO  9  1=1. N 
Ad.jisj, 

00  9  <=1 «N 

9  A(I*J)*A(l.J>*P(K.l>*XN(K,Jl 
ICOT  = 

00  ID  1=1. N 
00  10  J=I,N 
OXIJ=  . 

00  11  K=1 «N 

11  DXlJ=nxlJ.A(I.Kl*P(K,jl 
XN ( I «  I) =XN ( I , J) *DX  T J 
XN( J. 1 1 =XN ( I .J) 

AXN  =  A*»S(XN(I.J!  1 

IF(AX‘:.lt.i.e-7«*>  go  to  ia 

IF ( AX-l.LT .  1  .£  ?fl)  GO  TO  201 

IERR=3 

GO  TO  631 

201  RAT=A9S<DXIJ/XN<J.J>> 

IP(RAT-EE) 1A.1A.7C 


CALI  2 
CALI  3 
CALI  A 
CALI  5 
CALI  6 
CALI  7 
CALI  8 
CALI  9 
CALI  10 
CALI  11 
CALI  12 
CALI  13 
CALI  1A 
CALI  15 
CALI  16 
CALI  17 
CALI  18 
CALI  19 
CALI  20 
CALI  21 
CALI  22 
CALI  23 
CALI  2A 
CALI  25 
CALI  26 
CALI  27 
CALI  28 
CALI  29 
CALI  30 
CALI  31 
CALI  32 
CALI  33 
CALI  34 
CALI  35 
CALI  36 
CALI  37 
CALI  38 
CALI  39 
CALI  40 
CALI  41 
CALI  42 
CALI  43 
CALI  44 
CALI  45 
CALI  46 
CALI  47 
CALI  48 
CALI  49 
CALI  50 
CALI  51 
CALI  52 
CALI  53 
CALI  54 
CALI  55 
CALI  56 
CALI  57 
CALI  58 
CALI  59 
CALI  60 
CALI  61 
CALI  62 
CALI  63 
CALI  64 


Figure  91.  Subroutine  CALI  Program  Listing. 
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14 
7® 
10 
18 

15 


20 

16 


17 

40 

50 

600 

601 

602 


icar*tcoT*» 

continue 

CONTINUE 

ITER*IT£R*I 

IF(ICf'T-NCM5. 5.1«15 

CONTINUE 

00  20  1*1 *N 

DO  20  J*1*N 

AU»J'*pU»Jt 

00  17  1*1 «N 

00  17  J* I *N 

P(I«J)*Q. 

no  17  K*l.N 

P(  ItJ»«PtI«J>  ♦AII«*0»ACK.J» 
IFIITfR-IMAX)  10J«5(i«50 
CONTINUE 

WRITE  <9*6001  I’cR 
fORMAT (/7X«6H  ITER*12) 

return 

WRITE <9*6021  IERR 
FORMAT (/7X.6M  IERR*I2» 
RETURN 
END 


CALI  65 
CALI  66 
CALI  67 
CALI  68 
CALI  69 


CALI 

CALI 

CALI 


CALI 

CALI 

CALI 

CALI 


70 

71 

72 


CALI  73 
CALl  7«. 


75 

76 


CALI 
CALI 
CALI  77 
CALI  78 


79 

80 
81 
82 


CALl  83 
CALI  84 
CALl  85 
CALl  86 
CALl  87 


Figure  91.  Subroutine  CALl  Program  Listing  (Concluded) 
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St)HRO"T  INE  STRIC  (  A.R.PS.W.S.TcF.Nx.NU.NXM.MUt 
0  I  MEN  -I  I  ON  A<NXM,MAMt.u<NA4,vlJI.W(NA'4,NX'M.S(NX'«I.NX*1) 
DlMfM  ION  TPT  (NXM.f.XH)  .PSINxM.NXM* 

0  T  =  .  C  I 
00  1  !  =  1  *  NX 

DO  I  1=1. NX 
W  (  I  .  Ji =.  . 

no  i  -  =  i .nu 

1  W<  I  .  Jt  =  W  (  I  .  Jt  »-•<  1  (  J.K  )  OUT 

N  T  =  l  P 
K  T  =  10  ' 

T=n. 

00  ?'\  L=1  .XT 

T=T»DT 
00  3  t  =  I . NX 
00  4  * =i  .NX 

S  (  I  •  Jt  =1, , 

*  TPM  I.  JI=j. 

S(I.II=1. 

3  TPM  I .  I  )  =  l . 

00  10'  M=?,NT 
E AC  =  M- 1 
EAC=l ./EAC 

oo  s  t  =  l »Nr 

oo  5  1=1, NX 

DS  (  I  ,  n  =e. 

00  6  -=1 .NX 

b  PS  (  1  «  It  =PS  (  I  .  Jt -TPM  1  ,K  t*A  <<,.11  »FAC*T 

5  S(I.Jt=S(l.J)*PS(I.J> 

no  7  t  =  i ,nx 

DO  7  i=l. NX 
7  TPM  l.J)=PS<  1  «  II 
190  03NTI  .1  IE 

DO  8  1=1. NX 
00  a  1=1. NU 
TOE  (  I  .  .))  =U. 

09  a  *=1*NX 

6  TOE ( I . J) =TPE  < I. Jl «S< I .K)»R(<.  J> 

00  9  1=1. NX 

00  9  i=l. NX 
09  9  - =1 .NU 

9  W(l.Jl=t*(l.J)»TPMt,Kt*TPE(  |,<  )  *DT 
200  CONTINUE 

WRITE  19.300) 

300  FORMAT  <  1HI/7X.  I  PH  >•<  <  T  I  MATRIX/) 

CALL  .«P  (MXM.NXM.NX.NX.Wl 

RETUR 

END 


STRIC  2 
STRIC  3 
STR1C  4 
STRIC  5 
STRIC  6 
STRIC  7 
STRIC  B 
STRIC  9 
STRIC  10 
STRIC  11 
STRIC  12 
STRIC  13 
STRIC  1*. 
STRIC  15 
STRIC  16 
STRIC  17 
STRIC  18 
STRIC  19 
STRIC  20 
STRIC  21 
STRIC  22 
STRIC  23 
STRIC  24 
STRIC  25 
STRIC  26 
STRIC  27 
STRIC  28 
STRIC  29 
STRIC  30 
STRIC  31 
STRIC  32 
STRIC  33 
STRIC  34 
STRIC  35 
STRIC  36 
STRIC  37 
STRIC  38 
STRIC  39 
STRIC  40 
STRIC  41 
STRIC  42 
STRIC  43 
STRIC  44 
STRIC  45 
STRIC  46 
STRIC  *»7 
STRIC  48 
STRIC  49 


Figure  92.  Subroutine  STRIC  Program  Listing 
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3 
1 

4 

5 


SUBROl/T INE  SHUEL  <  A.MM,NN.M.*|.MC.NC«N0*O«B.MX) 

DIMENSION  A(MM.NN) .N090 (MX > .8 (MXt MX > 

IE(MC.ECl.O)  GO  TO  1 

00  2  r  =  »  »M 

I!*N0OD(II 

00  2  I  *  1  *  N 

B(  !.J)=A<Il.JI 

00  3  T*1.N 

00  3  1=1. N 

A( 1 . J) =B< I « Jl 

CONTINUE 

IE(NC.EO.O)  RETURN 
00  4  u). N 

JJ«NOOO(JI 
00  4  ]  =  1. H 
a<i.j)=Ai i.jji 
00  5  T*1.H 
00  5  1  =  1. N 
A< I. J) =rt( 1. Jt 
PETUR  < 

END 


SHUEL  2 
SHUEL  3 
SHUEL  4 
SHUEL  5 
SHUEL  b 
SHUEL  7 
SHUEL  8 
SHUEL  9 
SHUEL  10 
SHUEL  11 
SHUEL  12 
SHUEL  13 
SHUEL  14 
SHUEL  15 
SHUEL  lb 
SHUEL  17 
SHUEL  18 
SHUEL  19 
SHUEL  20 
SHUEL  21 
SHUFL  22 


Figure  93.  Subroutine  SHUFL  Program  Listing 


261 


SUBROUTINE  SHUF  (F  »M  «r,2.H.  AM#  AKG»  T  *  NORD.MX  .NX  .MR  <  NR.MM.NM  .MU.NU* 

SHUF 

2 

1MNN.NN) 

SHUF 

3 

DIMENSION  F  (MX.  MX)  .G)  (MX. MU)  .  r,2  ( MX  ,  MNN )  .H  (MR  .MX  )  .  AM  (MM  .MX  >  . 

SHUF 

4 

lAKG(Ml).MX)  .NOHO(MX) 

SHUF 

5 

DIMENSION  Y  (MX .MX ) 

SHUF 

6 

00  1  1*1. NX 

SHUF 

7 

1 1 *NOPD ( I ) 

SHUF 

a 

DO  1  1*1. NX 

SHUF 

9 

JJ-NOPD ( J) 

SHUF 

10 

1 

y(i.j)*F(ii,jj) 

SHUF 

li 

DO  2  1*1. NX 

SHUF 

12 

DO  2  1*1. NX 

SHUF 

13 

2 

F  ( I » J) *Y ( I . J) 

SHUF 

14 

DO  3  1*1. NX 

SHUF 

15 

II-NORD(I) 

SHUF 

16 

DO  4  J-I.NU 

SHUF 

17 

4 

Y(I,J)*G1 (II. J) 

SHUF 

18 

DO  3  J*1.NN 

SHUF 

19 

JJ-J«NU 

SHUF 

20 

3 

Y  ( I  .  J.M  *G2  ( 1 1  ♦  .1 ) 

SHUF 

21 

DO  5  1*1. NX 

SHUF 

22 

DO  6  J  * 1 . NU 

SHUF 

23 

6 

Gl ( I . J) »Y ( I . J) 

SHUF 

24 

DO  5  J*1 »NN 

SHUF 

25 

JJ-J»NU 

SHUF 

26 

5 

G2 ( 1 . J) *Y ( I , JJ ) 

SHUF 

27 

DO  7  J-l.NX 

SHUF 

28 

JJ-NORDU) 

SHUF 

29 

DO  7  1*1. NR 

SHUF 

30 

7 

Y ( I . J) *H( I . JJ) 

SHUF 

31 

00  8  J* 1 .NX 

SHUF 

32 

DO  8  U*1.NR 

SHUF 

33 

8  H ( I .  J)  *Y  ( I .  J) 

SHUF 

34 

DO  9  )* I .NX 

SHUF 

35 

JJ-NORO( J) 

SHUF 

36 

DO  9  J*1 .NM 

SHUF 

37 

9 

Y ( I . J) *AM ( I . JJ ) 

SHUF 

38 

DO  10  J-l.NX 

SHUF 

39 

00  10  1*1. NM 

SHUF 

60 

I* 

AM  ( 1 .  J)  *Y  <  I  .  J) 

SHUF 

61 

DO  11  J*1 .NX 

SHUF 

62 

JJ*NO»D<J> 

SHUF 

63 

DO  11  1*1. NU 

SHUF 

64 

11 

Y(I.J)*AKG(I.JJ) 

SHUF 

45 

00  12  J-l.NX 

SHUF 

46 

03  12  1-1. NU 

SHUF 

47 

12 

■XKGI  l.J)-Y(I.J) 

SHUF 

48 

RETURN 

SHUF 

69 

END 

SHUF 

50 

Figure  94.  Subroutine  SHUF  Program  Listing 
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c 

c 


I 


6080 


6076 


4020 


SUBROUTINE  RESP(C, a«G2, AM.AK,X,Y,Z,S,;?»ES.E,U.V,XI,DQ,  AKG,DQD,H 
|KWA,Nx.NFF,NN*NM»NII.NP.MX,MFF.MF6,MN,NM,MU<MR.ITER,IMAX.IERR»NC 
DIMENSION  X I  (MFF  »MFF ) «  X (MX .MX > ,R (MX • MX ) »MDK (MR ,MX ) »C (MX .MX ) « 

1G2 (MX  «MN) <  A (MX ,MX ) , AM (MM ,MX ) ♦ AK (MU, MM) ,Y(NX»MX)  «  Z (MX  «  MX ) ,5 (MX»M 
2ES(MX.MX),U(MFR,MFB) ,V(MFF ,MFF) ,E (MFF,MFF) ,DQ(MU,MM) « 

3KWA(MX) .AKG(MU.MX) ,000<MU.MUI 
NFB«NX-NFF 

COMPUTE  COVARIANCE  MATRIX  FOR  DISTURBANCE  KCOM 
00  60*0  1*1, NR 
00  60«0  J*1 ,NB 
R<  I  < J) *0, 

KCOM*h 
KC0M**C0M»1 
00  40»0  1*1 <NFF 
00  40?0  J*1 <NFF 
II*1*MFH 
JJ«J,mFB 

C(I,J'*G2(1I  ,KC0M)«G2(JJ  <KC0M) 

WRITE  <9,41 )  KCOM 

41  FORMAT (1H1/7X.16H  COVARIANCE  ANALYSIS  FOR  DISTURBANCE, 13//) 

ITER*. 

CALL  FOVAR (XI, A, C, X, G?,S<E< FS,V,U, NX, VFF.NN, MX, MFF, MFB<MN<1MAX< 
1ITER,x,1ERR,KWA) 

IF(IEPR.EQ.O)  GO  TO  896 
WRITE (9,43) 

43  FORMAT (1H1/7X,?BM  COVARIANCE  MATRIX  UNDEFINED//7X.27H  IGNORE  COVARRESP 


28 


Figure  95.  Subroutine  RESP  Program  Listin 


RESP 

2 

RESP 

3 

RESP 

4 

;S 

RESP 

S 

5 

RESP 

6 

RESP 

7 

RESP 

8 

RESP 

9 

RESP 

10 

1 

RESP 

11 

RESP 

12 

l 

RESP 

13 

] 

RESP 

14 

RESP 

15 

RESP 

16 

| 

RESP 

17 

RESP 

18 

. 

RESP 

19 

•• 

RESP 

20 

: 

RESP 

21 

‘l 

RESP 

22 

i 

RESP 

23 

: 

RESP 

24 

il 

RESP 

25 

1 

RESP 

26 

i 

RESP 

27 

f 

I 


1IANCE  ANALYSIS//! 

RESP 

29 

; 

RETURN 

RESP 

30 

■ 

s 

896  WRITE(9,40S1) 

RESP 

31 

4051  FORMAT (//7X»18h  COVARIANCE  MATRIX//) 

RESP 

32 

CALL  MP(MX,MX,NX,NX,X) 

RESP 

33 

» 

C 

RESP 

34 

C  COMPUTE  (M*DKM)  X  (H*0*’M) 

RESP 

35 

\ 

00  4053  1*1, NR 

RESP 

36 

: 

00  40S3  J*1 ,NX 

RESP 

37 

i 

C(I.J)«0. 

RESP 

38 

i 

1 

DO  4053  K*1 »NX 

RESP 

39 

J 

4053  C(I,J»*C(I,J)*HOK(i,K)»X(K,J) 

RESP 

40 

i 

00  4054  1*1, NR 

RESP 

41 

00  4054  J*1 ,NR 

RESP 

42 

: 

S(I,J)*0, 

RESP 

43 

00  4054  K*1 ,NX 

RESP 

44 

i 

4054  S(I,J)*S(1,J!*C(I,k)*hOK(J,K) 

RESP 

45 

I 

IF (NCOV.GT .2)  GO  TO  2 

RESP 

46 

i 

WRITE (9,42) 

RESP 

47 

i 

42  FORMAT (1M1/7X.P7H  RESPONSE  COVARIANCE  MATRIX//) 

RESP 

48 

i 

CALL  mP(MX,MX,NR«NR,S) 

RESP 

49 

i 

00  7015  1*1, NX 

RESP 

50 

00  70)5  J«1,NM 

RESP 

51 

ES( J»I*“0. 

RESP 

52 

! 

00  7015  K*1 ,NX 

RESP 

53 

: 

; 

7015  ES(J,!)«ES(J,I)*X(I,K)»AM«J.K) 

RESP 

54 

DO  7016  1*1, NM 

RESP 

55 

DO  7016  J*1,NM 

RESP 

56 

A 

Y ( I , J) *0* 

RESP 

57 

1 

00  7016  K*|,NX 

RESP 

58 

i 

7016  V(I»J>*V(I,J)*AM(I,K) *ES ( J»K) 

RESP 

59 

I 

j 

WRITE (9,44) 

RESP 

60 

I 

44  FORMAT (1H1/7X,30M  MEASUREMENT  COVARIANCE  MATRIX//) 

RESP 

61 

■} 

CALL  MP(MX,MX,NM,NM,Y) 

RESP 

62 

i 

DO  1112  1*1, NU 

RESP 

63 

I 

DO  11)2  J*1.NM 

RESP 

64 

I 

00  <  1  .  t)=C. 

RESP 

65 

00  1 1 l ?  K  =  l .NM 

RESP 

66 

111? 

00(1,  l)*DQ(I.J) »AK I I.K)*Y(K,J) 

RESP 

67 

00  60<>5  1*1  .Nil 

RESP 

68 

00  604*;  J=1.NU 

RESP 

69 

000(1. J»*0. 

RESP 

TO 

00  6045  K*1.NM 

RESP 

71 

6085 

000 ( I . JI  *000 ( I . J) *O0( | »K) *A<  < J.K) 

RESP 

7? 

WRITE (9,45) 

RESP 

73 

45 

FORMAT < 1H1/7X.’6H  fONTPOL  COVARIANCE  MATRIX//) 

RESP 

7*. 

CALL  mPIMU.MIJ.NU.Nii.OOD) 

RESP 

75 

00  11)1  1*1. NX 

RESP 

76 

00  1111  J=1 .NX 

RESP 

77 

7 ( I . Ji =0. 

RESP 

78 

IP(X  (  i ,  I )  ,LT ,l.E~?fi)  r, 0  TO  1111 

RESP 

79 

inxi  j.  JI  .LT.l.E-20*  oo  TO  nil 

RESP 

80 

Z( I . Ji *X< I. J) /SORT  IX < I . I )«X  < J. JI ) 

RESP 

81 

till 

CONTI SUE 

RESP 

8? 

WRITE (9.46) 

RESP 

83 

46 

FORMAT (IHI/7X.3IM  STATE  CROSS -COR PFL AT  TON  MATRIX//) 

RESP 

84 

CALL  'P(MX.MX.NX.NX.Z) 

RESP 

85 

00  11’?  1*1. NU 

RESP 

86 

00  11’?  J* 1 .NX 

RESP 

87 

AKG ( 1 . J) *0 . 

RESP 

88 

00  11’?  5=1. NM 

RESP 

89 

11?? 

A5G ( I • J ) * AKft ( |  . J ) ♦ AW ( 1 . K ) *AM (K , J) 

RESP 

90 

00  1113  1*1. NU 

RESP 

91 

00  1113  J* 1 .NX 

RESP 

9? 

Z(I»J>*0. 

RESP 

93 

IFIOOMItl)  ,LT.l.E-?0)  r.0  To  1113 

RESP 

94 

IF(X(  I.J)  ,LT.l.E-?r;l  GO  TO  1 1 1  3 

RESP 

95 

00  1 1 ’3  5  » 1 .NX 

RESP 

9ft 

1 1?3 

Z(I.Ji*Z(1.J).AKC»(t.K)»X(K,)) 

RESP 

97 

Z(I.J)*Z( I.J) /SORT (000(1. I)*X(J.J)» 

RESP 

98 

1113 

CONTINUE 

RESP 

99 

WRITE (9,47) 

RESP 

100 

47 

FORMAT (1M1/7X.39H  CONTROL-STATE  CROSS-CORRELATION  MATRIX//) 

RESP 

101 

CALL  mPJMX.MX.NU.Nx.Z) 

RESP 

10? 

00  1114  1*1, NR 

RESP 

103 

00  1114  J*l,NX 

RESP 

104 

Z  ( I » J) *0. 

RESP 

105 

IF<s<t.I).LT.I.E-?OI  go  To  1114 

RESP 

106 

IF  « X  <  I.JI  .LT.l.E-?m  oo  TO  111* 

RESP 

107 

Z ( I, J i *C < I.J) /SORT <S<T.!)*XCJ,JH 

RESP 

108 

1114 

CONTINUE 

RESP 

109 

WRITE (9,48) 

RESP 

no 

48 

FORMAT (1HI/7X.40H  RESPONSF-STaTE  CROSS-CORRELATION  MATRIX//) 

RESP 

111 

CALL  MP(MX,MX,NR.N» ,Z) 

RESP 

112 

DO  1115  1*1. NM 

RESP 

113 

00  1115  J*1.NM 

RESP 

114 

Z(I.Jl*0. 

RESP 

115 

IF(T<l,I).LT.l .F-?o)  r,o  TO  1 1 1 S 

RESP 

116 

IF c y  (  i.j)  ,LT.l.E-?d  go  TO  11)5 

RESP 

117 

Z(I.J>*Y(I,J)/SQRT(Y(!.I)*Y(J,J) ) 

RESP 

118 

1115 

continue 

RESP 

119 

WRITE (9.49) 

RESP 

120 

49 

FORMAT (1H1/7X.37H  MEASUREMENT  CROSS-CORRELAT I  ON  MATRIX//) 

RESP 

121 

CALL  ‘IP (MX.MX .NM.NM ,Z ) 

RESP 

122 

00  1300  1*1. NM 

RESP 

123 

00  1 3'>0  J*1  .NX 

RESP 

124 

Z(I.J)*J. 

RESP 

125 

IFlYd.n.LT.I.E-ZO)  00  TO  1300 

RESP 

126 

I F ( X (  I.J) .LT.I.E-201  50  TO  |3oO 

RESP 

127 

00  13d  K*1.NX 

RESP 

128 

1381 

Z(I.Jl*Z(I.J)*AM(I,K)*X(K»J| 

RESP 

129 

Z(I«J)*Z(I«J) /SORT (Y(I,I)»X(J,J) > 

RESP 

130 

Figure  95.  Subroutine  RESP  Program  Listing  (Continued) 
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nee  continue 

WBITE<9,1302> 

ne2  F0RMAT<1h1/7X.43h  MEASUREMENT -ST *TE  CROSS-CORRELATION  MATRIX//) 
call  MPIMX.MX.NX.NX.Zl 
00  1116  I  *  1 *NU 
DO  1116  J*1,NM 
Z< I  * J) *0. 

ir(ooou«n.LT.i.E-?e>  go  to  ni6 

IF  <  V <  I* J» .LT.l.E-20)  GO  TO  1116 
Z (I* J) *00  < I • J1 /SORT <0001 1. I )*Y <  J, J> 1 
1116  CONTINUE 

WRITE<9.50) 

50  F0RMATUH1/7X.45H  CONTROL-MEASUREMENT  CROSS-CORRELATION  matrix//) 
CALL  MP(MX*MX»NU»NM»Z) 

00  U|8  I»l  *NR 
00  Ills  J*1.NM 
z<i,jt«e. 

IF  <S < | » I > .LT . 1 .E-2? )  GO  TO  Ills 
IFm  I.J),LT.l.E-20>  GO  TO  UIB 
00  1119  K«1,NX 

1119  Z<I«J)*Z(1.J)*C(1*K)*AM(J.K) 

Z 1 1  * Jt «Z ( I • J) /SORT <S< I . I )«Y ( J, J) ) 
llll  CONTINUE 

WRITE  <9*51 1 

51  FORMAT (1H1/7X.46H  BESPONSE-MEASUREMENT 
CALL  MP<MX.MX,NB*Nm.Z) 

00  1120  1*1, NU 
00  1120  J*1  *NR 
Z<I*J>«0. 

IF <000 (I*I).LT.t.E-20)  GO  TO  1120 
IF<S(.j«J).LT.l.F-?<<>  GO  TO  |120 
00  1121  K*1 .NX 

1121  Z(I*J)*Z(I*J)»AKG<i*K)*C<J*K) 

Z ( I  * J) *Z ( I • J) /SORT (OQO  < I  *  I ) *S ( J* J) l 

1120  CONTINUE 
WRITE (9*52) 

52  FORMAT (1M1/7X.42H  CONTROL-RESPONSE  CROSS-CORRELATION  MATRIX//) 
CALL  mP (MX .MX.NU.NP. Z ) 

2  00  4056  1*1 *NR 

IF  <S  <  1 « 1 1  .LT.O.)  S<I*D*0. 

R(I*I)*R(l«I)«S<I*p 

4056  S(I,I)*SGRT(S<I,I) ) 

WRITE <9*4057) < (I,  S< 1*1)1 *I«i*nR) 

4057  FORMAT (//20X.17H  R.M.S.  RESPONSES/ <  ISX, 13. E16.P) ) 

IF(KCOM.LT.NN)  GO  TO  6076 
00  60S2  1*1. NR 

6002  R  < I  *  I ) *SORT (R  ( 1  *  I > ) 

WRITE <9, 6081) ( < I *R ( I « I ) ) *  1*1 *NR) 

6081  FORMAT (//7X.22HT0TAL  R.M.S.  RESP0NSES/(18X.I3,ri6.8)> 
return 

ENO 


CROSS-CORRELATION  MATRIX// 


RESP  131 
RESP  132 
RESP  133 
RESP  134 
RESP  135 
RESP  136 
RESP  13? 
RESP  138 
RESP  139 
RESP  14C 
RESP  141 
RESP  142 
RESP  143 
RESP  144 
RESP  145 
RESP  146 
RESP  147 
RESP  148 
RESP  149 
RESP  150 
RESP  151 
RESP  152 
RESP  153 
RESP  154 
IRESP  155 
RESP  156 
RESP  157 
RESP  158 
RESP  159 
RESP  160 
RESP  161 
RESP  162 
RESP  163 
RESP  164 
RESP  165 
RESP  166 
RESP  167 
RESP  168 
RESP  169 
RESP  170 
RESP  171 
RESP  172 
RESP  173 
RESP  174 
RESP  175 
RESP  176 
RESP  177 
RESP  178 
RESP  179 
RESP  180 
RESP  181 


Figure  95.  Subroutine  RESP  Program  Listing  (Concluded) 
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ooaon 


SUHROnTINE  C0V4P<XJ»A.C«A.G?.S«E  *  F  S  »  V  .  H  »  NX  »  NFF  .  NN  .  MA » MFF  »MFB  »MN 
UMAX.!  T£R,I».If(?P,KWA» 

DIHENc  ION  AIMX.MXt ,C IMX.MaI .G?(mA.MN>  <X {MX.MX) .SIMX.MX) *AI  (MET* 
It.KtfAIMXl.EtMFF.MFFt.fSIMX.MXt.UIMFH.NFB)  .  V  (MFF.MFF) 

nfh=n<-nff 

IFIIT‘P.NE.7)  r,o  To  ISO 

COVAR !  A‘lCE  CALCULATION 


COMPUTE  X??  FROM  G  =  42:>»X2?.x2;>*A2?.G??*r,22 
9  00  11  I»1,NFF 
00  11  Jsl.NFF 
1 1  *  I  *  FH 
JJ*J»  iFR 
SU.JisAUItJJ) 

!F<IR.FCI,?»  go  TO  t  1 
C  d  *  Jt =0. 

00  1?  K*1«NN 

12  C(  I  •  Jt  *C<  1  *  J)  *r,?(  If  *k  ) «G? (  jj  .<) 

II  CONTI.  lUE 

CALL  FALIS.C.X.KwA.NFF.MA. ImAx.2.IERR> 

IF  (  IE-'R.GT  .<) )  RETURN 
00  IS  I  1  =  1  *NFF 
00  IS  1  J«1.NFF 

151  XKI,  |l*Cd.J> 


C 
C 

150 


COMPUTE  X 1 2  FROM  0=A1 1  * X  1  ?« X 1 ?*A2?» A 1 2» X?? 

00  15 ?  I*l,NF« 

DO  1  l  s  1  <NFR 
i  X  ( 1  «L  *  = A ( I »L  > 

00  15?  J«l.NFr 
Cd.Jt*i>. 

00  15?  K=l,NFF 
KK»K*'|FH 

152  C(I*J'=C(I*J)»A(I.KK)*XI(K*J) 

00  1ST  J  *  I »NFF 
00  IS?  Jsl.NFF 
1 1 »  I  * ..FH 
JJ«J* gFH 

153  S ( I . J» =A( JJ. I  I) 

CALL  OCAL  t  S.X.C.NFf.NFH.MFF ,MFR. Imax.E.ES. V.U.kma.MX* IERRl 
IF  < IE  ?R.GT .0 )  RETURN 


C  COMPUTE  Xll  FROM  C  =  A 11  * *  11 ♦ X 1 1  * A 1 1 . A I  2* X 1 2*X 1 2* A 1 2 
00  15i  !«l.NFR 
00  15'.  Jsl.NFR 
X ( I . J) *A< I , J) 

SII . Jt  *0. 

00  15u  K*I,NFF 
KK»K. xFH 

154  S ( I . Jt  *S( I . J) «AI I .«K)*C( J.K*  *r< I *<)*A< J.KKI 
CALL  CAL<X.S*E$.K¥A.NFR,mx. IMAX.2, ItRRI 

IFIIEJR.C.T.O)  return 
00  15^  1=1. NFR 
00  15S  Jsl.NFF 
JJ«J*  |FR 
XII. j  n*Cd.Ji 
155  XIJJ  .IlxXd.JJ 
00  15s  1*1. NFF 
00  15s  Jsl.NFF 

!!*!♦’ fh 

JJ*J*'iFR 

Figure  96.  Subroutine  COVAR  Program  Listing 


2 

3 

4 

5 

6 
7 
0 
R 

10 

11 

12 

13 

1 4 

15 

16 
17 
IB 
19 


•  COVAR 
COVAR 
MFFCOVAR 
COVAR 
COVAR 
COVAR 
COVAR 
COVAR 
COVAR 
COVAR 
COVAR 
COVAR 
COVAR 
COVAR 
COVAR 
COVAR 
COVAR 
COVAR 
COVAR  20 
COVAR  21 
COVAR  22 
COVAR  23 
COVAR  24 
COVAR  25 
COVAR  2b 
COVAR  27 
COVAR  20 
COVAR  29 
COVAR  30 
COVAR  31 
COVAR  32 
COVAR  33 
COVAR  34 
COVAR  35 
COVAR  36 
COVAR  37 
COVAR  38 
COVAR  39 
COVAR  40 
COVAR  41 
COVAR  42 
COVAR  43 
COVAR  4* 
COVAR  45 
COVAR  46 
COVAR  *7 
COVAR  48 
COVAR  49 
COVAR  50 
COVAR  51 
COVAR  52 
COVAR  S3 
COVAR  54 
COVAR  55 
COVAR  56 
COVAR  57 
COVAR  50 
COVAR  59 
COVAR  60 
COVAR  61 
COVAR  62 
COVAR  63 
COVAR  64 
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156  x » 1 1 «  iJ)>*lili j» 
00  1ST  1*1. NF« 
00  15?  J*1.NFA 

157  X(l«Jt*$(I»J) 
RETUR  i 

end 


COVAR  65 
COVAR  66 
COVAR  67 
COVAR  68 
COVAR  6R 
COVAR  70 


Figure  96.  Subroutine  COVAR  Program  Listing  (Concluded) 


SUBROUTINE  COSTAT(R«A.S.X.ES«r,2*i  « U» V « <M A . MX ,mFH .MFF .NX. NFF 
IIEPR) 

Ot MENS  ION  r (MX .MX )  ,A (MX (MX) ,S(MX.MX  > ,1 (MX.MX  > (MX.MX »  ,  X 
IU (MFB. MFR ) .RIMX.MX) ,V(MFF,MFF> .KPa(MX)  .E (MFF.MFF) 
nfr*n«-nff 


(MX  *  MX ) 


-NFF 

00  I  ?  =  1  *  N  X 
DO  1  1*1 »NX 
S  (I. JI*R< I.J1 
X ( I < J I *A ( 1 • J ) 


COMPUTE  Sll  FROM  0=S1  l*AI  l»All*Sll*Rll 
CALL  CAL (X.S.ES.MMA.NFH.MX, IMAA. I ,  I£«R) 
IfllERR.GT.OI  RETURN 


return 

COMPUTE  SI2  FROM  P*S  1  ?X A 1 1  ♦  A?2*S1?»S1  1  *AI ?«R I  2 
00  15«  1*1. NFB 
00  ISm  J*1,NFF 
JJ*J*rjFB 
CS  ( I  .  ))  *R  <  I  *  JJ) 

00  IS*  k*1.NFR 

158  ES<1,./)*ES(I.J> »S(!.K(«A(Ki JJ) 

00  159  1*1. NFB 

00  15*1  J*  1  .NFB 

159  X ( I • J\ *A ( J. I ) 

00  16'  1*1. NFF 

00  16'.  J*  1  .NFF 
ii*i**Fa 

jj*j*nfb 

160  Y(I,Jl«A<II,JJ> 

CALL  GCAL(Y.*,ES.NFF.NFB.MFr,MF8.1MAX.E«2*V.U.KMA.MX. IERM1 

IF ( IEmR.GT .0)  RETURN 

00  165  1*1, NFB 

PO  16?  J* I «NFF 

jj*J*')FH 

s(jj.n*Esu»j) 

162  5 ( I . JJ) *ES ( I , J) 

COMPUTE  S22  FROM  o-S?2«A2?* A??*S?2» A J 2*Sl ?«S| 2«Al 2»R?2 
00  161  1*1. NFF 
00  161  J*1.NFF 
II*I*MFB 
JJ*  J*:jFB 
Y ( I « J ) *A ( 1 1 , JJ) 

X ( I « J) *R ( 1 1 , JJ) 

00  161  K*1.NFB 

163  X(1,J)sX(I,J)*A(K.II)«S(K,JJ)«S(K.II)*A(K,JU) 

CALL  CAL<Y.X.R,KWA,NFF,MX,IMAX.1.IERR) 

IF(IEOB.GT.O)  return 

00  164  1*1. NFF 
00  164  J* 1 ,NFF 
1 1*1 *NFB 
JJ«J*NF8 

164  S ( I | • )J)*X(I,J) 

return 

ENO 


.imax.costat 

COSTAT 
COSTAT 
COSTAT 
COSTAT 
COSTAT 
COSTAT  8 
COSTAT  9 
COSTAT  1 0 
COSTAT 1 1 
COSTAT 12 
COSTAT 1 3 
C0STAT14 
C0STAT15 
C0STAT16 
COSTAT 17 
C0STAT13 
C0STAT19 
C0STAT20 
C0STAT21 
C0STAT22 
C0STAT23 
C0STAT2*. 
C0STAT25 
C0STAT26 
C0STAT27 
C0STAT28 
C0STAT29 
C0STAT30 
C0STAT31 
C0STAT32 
C0STAT33 
C0STAT34 
C0STAT35 
C0STAT36 
C0STAT37 
COST AT 38 
C0STAT39 
C0STAT40 
C0STAT41 
C0STAT42 
C0STAT43 
C0STAT44 
C0STAT45 
C0STAT46 
C0STAT47 
C0STAT48 
C0STAT49 
COSTATSO 
C0STAT51 
C0STAT52 
C0STAT53 
C0STAT54 
C0STAT55 
C0STAT56 


Figure  97.  Subroutine  COSTAT  Program  Listing 
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IT  4 


StIRWOl'T  INC  UNSCR  (  r  .  OJCK  .1) JV.D  JVT  .  IF  .  JF.NF  .NU .  V-*  .  Mil .  MM  ,  Mf  > 
OJMfN^  ION  T(MF.MF)  .OJOK  <MJ»  MM  )  «OJV  (  MF  )  .OJVT  <«F  t 
OtMFN  ION  IF (MF  » . Jr (mc  ) 

L  =  I 

00  1  islt'iu 
00  1  1  =  1. NM 

If (U.OT.NFI  00  TO  t 
IF  1 1  .  -,f  ,1F(U  1  00  TO  1 
I F  ( J  .  iF.JFILt  *  00  TO  I 
OJV  (Ll  =OJOK  (  I  ..I) 

L=L»1 

1  CONTI  HE 

00  1  1=1. NF 
0 JVT <  r 1=0. 

00  3  ' = 1 • NF 

3  OJVT ( n =OJVT ( I t .T ( l ,K i*OJV (<l 

L  =  1 

00  4  i  =  l. Nil 
00  4  .1=1  *NM 

ifil.^.t.nfi  r,o  to  - 

IFI].'  F.1FIL*  I  00  TO 

inj,*  F.jFiii  i  oo  to  s 

OJOK  (  T.J)=l)JVT(L) 

L*L  «  l 
00  TO  u 
ojok 1 1 , ji =r . 

CONTINUE 
OfTUH 
€N0 


UNSCR 

2 

UNSCR 

3 

UNSCR 

4 

UNSCR 

s 

UNSCR 

6 

UNSCR 

7 

UNSCR 

8 

UNSCR 

N 

UNSCR 

10 

UNSCR 

11 

UNSCR 

12 

UNSCR 

13 

UNSCR 

14 

UNSCR 

IS 

UNSCR 

16 

UNSCR 

17 

UNSCR 

la 

UNSCR 

IN 

UNSCR 

20 

UNSCR 

21 

UNSCR 

22 

UNSCR 

23 

UNSCR 

24 

UNSCR 

25 

UNSCR 

26 

UNSCR 

27 

UNSCR 

28 

UNSCR 

29 

UNSCR 

30 

Figure  99.  Subroutine  UNSCR  Program  Listing 


o  o  o 


SlIRWOi  <T  1  NE  GCAL  lMAA,E.E!>.lf.O.''rfA.MX.  IERR » 

c 

C  This  SUBROUTINE  SOLVFS  ThF  GENERAL  MATS'  I A  EQUATION  X».6A=C 
C  FORM  <  J - A  >  »  < I » A I . ( | -H 1 . ANn  (J»«|  ThEN  INVERT  «  1  - A  >  AMD  (i-HI 
01  MEN  ION  A (MA.MA I ,M(mX .MAI .X  <HA.MX  » .E INN.NNI 
OIHEN'-.  ION  ESlMA.MXl .V IMN.NNl .  iIMM.mni ,«  *A(MIO 
Ffa.O  1 
irppx 

00  1  l=|.N 

00  2  I* I  «N 

2  E  ( 1 .  J>  *  -A(  I  ..It 
1  E<l.H*E<I.I>*l . 

00  3  1*1.  M 

00  4  1*1. M 

4  CS  (  I  •  II  *  -HI  |.j> 

3  ES(I.n*ES(I.Ii«l. 

NRRsN 
NCC=N 
NR*NN 

CALL  TOINVH  ( I  SOL.  lOSOL  .NOP  .‘|Cr  .E  *  N»  »<*A  .UE  T » 
IE((I^OL«IOSOL>.LE.P1  00  TO  S 
IERH*v 

go  to  a  i 

5  NP*MA 

CALL  TDINWRI ISOL. InSOL.M.M.PS.NP.KMA.OFTt 

ir  i  c  i sol »  iosol  t  .le  , 9 1  r.o  to  6 
1E0P*- 
r.0  TO  AM 

6  NC*N*  • 

FORM  U .  V  .  :.N0  4 

00  11  l*l« N 
00  11  J* 1 • N 
VII. Jl  *  E(I.J) 

00  11  K*1.N 

11  VII. Jl  *  VU.Jt  ♦  All. *»•£!<»  »» 

00  12  1*1. M 
00  12  J*1.M 
UII.JI  *  ES  ( I .  J ) 

OO  12  K* l ,M 

12  U<I«Ji  *  0(1.J»*ES<I.<**81K.J1 
00  13  1*1. M 
DO  13  J*1.N 
Bll.JtsO. 

00  14  K*1.M 

14  RII.JI  *  8(1. Jl  ♦  ESCI.O  *  MK.Jl 

13  R( 1 . Jl *2#*B(  I  .  I) 

00  15  1*1. M 
00  15  J*l.N 
A ( I . Jl  =  i. 

00  15  **1 .M 

15  X (I . Ji *  XII. J>  »  Mil. Ml  *  ElK.JI 
ITER* 

100  CONTINUE 

no  30  i*i. m 

00  30  J*l .M 
5  1 1 « Jl *0. 

00  30  K*1.m 

30  B ( I . J i  *  B(I.J)  ♦  n(I.KI*A(<.J) 

C  CONVERGENCE  CHECK 
C 

ICOT* 

Figure  100.  Subroutine  GCAL  Program  Listing 


GCAL  2 
GCAL  3 
GCAL  4 
GCAL  5 
GCAL  6 
GCAL  ? 
GCAL  8 
GCAL  9 
GCAL  10 
GCAL  1 1 
GCAL  12 
GCAL  13 
GCAL  14 
GCAL  15 
GCAL  1 A 
GCAL  17 
GCAL  IB 
GCAL  19 
GCAL  20 
GCAL  21 
GCAL  22 
GCAL  23 
GCAL  24 
GCAL  25 
GCAL  26 
GCAL  27 
GCAL  28 
GCAL  29 
GCAL  30 
GCAL  31 
GCAL  32 
GCAL  33 
GCAL  34 
GCAL  35 
GCAL  36 
GCAL  37 
GCAL  38 
GCAL  39 
GCAL  40 
GCAL  4 1 
GCAL  42 
GCAL  43 
GCAL  44 
GCAL  45 
GCAL  46 
GCAL  47 
GCAL  4R 
GCAL  40 
GCAL  50 
GCAL  51 
GCAL  52 
GCAL  53 
GCAL  54 
GCAL  55 
GCAL  56 
GCAL  57 
GCAL  58 
GCAL  59 
GCAL  60 
GCAL  61 
GCAL  62 
GCAL  63 
GCAL  64 


no  31  i=t,M 
no  31  j=i.n 

OX*0. 

DO  3?  K*1.N 

3?  o*  =  1  x  » 

x ( I . JI  =  A ( I . jt  *  nx 

AX  =  AH  UlliJII 
IMAX.lt.  ».£-?«->  on  T  J  4? 
IFIAX.LT. I. F  >»'■»  GO  TO  41 
IFRR=‘ 

GO  TC  0.  1 

■.l  pat=ajs  (i)x/x  ( i .  jii 

IF(RAr-EFI42.4’,43 

<*?  lcor=iroT*) 

43  CONTI  ilir 
31  CONTI  UE 

iter=tter»i 

IF  (  IC  IT -NC) 44. 5 3 .44 

44  CONTI-’ltF 

00  33  1  =  1  . N 
00  33  J=1.N 

33  E ( I ♦ Ji =V( I. J) 

00  34  I  =  |. M 

no  .34  j=i,m 

34  ESI  I.  i>  =U<  I .  J* 

DO  45  1  =  1  .N 
00  45  J  =  1  .N 

V< ! .  Jl  =i>. 

00  45  K= 1  . N 

45  VII. J)  =  VII. Jl  »  r(I,KI*t(X,JI 

no  46  i  =  i. h 
no  46  j*i.m 
IIII.JI*-}, 

00  46  K  =  1  .  M 

46  IJII.JI  =  tJU.JI  ♦  rsi  j  ,K)*ES(x.  J) 
IF  ( IT-P.LT  • IMAX 1  Gr>  To  luo 
WRITE (R.60C1 

600  FORMAT I/7A.12M  I T^o  =  JMAX) 

50  COOT  l  !UE 

PETUR-i 

601  WR I TE ( R«  60?  >  I  ERR 

60?  FORMAT I/7X.7H  IEPR  =,I?I 
RFTI19* 

END 


GCAL  65 
GCAL  66 
GCAL  67 
GCAL  68 
GCAL  69 
GCAL  TO 
GCAL  71 
GCAL  7? 
GCAL  73 
GCAL  74 
GCAL  75 
GCAL  76 
GCAL  77 
GCAL  78 
GCAL  79 
GCAL  80 
GCAL  81 
GCAL  82 
GCAL  83 
GCAL  84 
GCAL  85 
GCAL  86 
GCAL  87 
GCAL  88 
GCAL  89 
GCAL  90 
GCAL  91 
GCAL  9? 
GCAL  93 
GCAL  94 
GCAL  95 
GCAL  96 
GCAL  97 
GCAL  98 
GCAL  99 
GCAL  100 
GCAL  101 
GCAL  102 
GCAL  103 
GCAL  104 
GCAL  105 
GCAL  106 
GCAL  107 
GCAL  108 


Figure  100.  Subroutine  GCAL  Program  Listing  (Concluded) 


SUHPOhT INE  C*L (A.  X^.P.KWA.N.Np. J*AA. IT . IE PR) 

DIMENSION  AtNR.  1  >  .  »N(N«.  1  )  .°  t'lS.  1  >  .ArfAINH) 

IFPR* 

T3*0. 

00  3(>  1  =  1  «N 

300  TR*TR.A<l.l» 

E  N*N 

lE(TR) 3C 1.2.2 
2  IFPP*1 

GO  TO  6.'1 

301  ALf  =  A^S(TH)/FNJ 

EE*. 3  I 

NC*N«  <N«1 I 
NC=NC/? 

00  60  I  =  |  .N 
00  63  J=1.N 
GOTO  (  *> !  .62)  .  IT 
61  P< I . J>  =A ( I . J) 

GOTO  si 

6?  P(|.Ji*A(J.H 
63  CONTI  U)E 

D< I « 1 1 =p ( I «  n-ALE 
60  CONTI'ilJE 

CALL  TOINVR  (  IGOL.  IrS3l.»N.N*3.NPi<if,A«r)ET) 

IE ( ( IsOL* IOSOL ) .LE.21  GO  TO 
IEPR* i 
GO  TO  6: 1 
22  00  A  T  a  1  •  N 
00  A  1=1. N 
A  (  I  .  J  l  =  0  . 

00  A  K  =  l,N 

A  A(!,J|=A(I,J)  «P(K,  M*»N<K,J)*?.*ALE 
DO  5  1=1. N 
00  5  jal.N 
AN  ( 1 .  M=0. 

00  5  *  *  1 «  N 

5  XN(I.  I)  *XN  t  I  «  J I  »  A  (  I  «K  1  *P  (K  *  J) 

00  7  1*1. N 
00  n  1*1. N 

8  p(I.J>*p<I.J>«’.»ALE 

7  P(i.i)*P(i.n»i. 

ITER* 

100  CONTINUE 
00  R  1*1 .U 
00  Q  1*1. N 
A ( I . J) *0. 

00  9  <*l.N 

9  At  I . J) *A( I ♦ J) .P(K, 1 ) •ANtK, J) 

ICOT* 

00  10  1*1. N 
00  10  J*  I  . N 
DA  I J*  . 

00  11  K*1,N 

II  0XIJ*0XIJ*A< I .Kt*P(*. J) 

AN  ( I  .  I)  *AN  t  I  «  J )  *DA  I J 
AN ( J. T ) *AN (  I  ♦  J> 

AXN*A3S(AN(  I. J)  ) 

IE(A*N.LT.1.E-?C1  GO  TO  1A 
IE ( AA-j.lT .  1  ,E  ?C>  GO  TO  201 
IERR*’ 

GO  TO  661 

201  RAT*ApS(OXIJ/XN<  I  ».M  1 
lE(RAT-EE) 1A.1A.7& 

Figure  101.  Subroutine  CAL  Program  Listing 
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Figure  101.  Subroutine  CAL  Program  Listing  (Concluded) 


|4  i cot ■ T cot ♦ 1 
70  CONTINUE 
10  CONTINUE 
IS  IT£R«ITER»I 

IF(ICOT-NC)  IS.5C •  1*5 

15  CONTINUE 

00  20  I  *  I  »N 
00  20  J*ltN 
20  AIItJ**PII»JI 

16  DO  17  I«»*N 
DO  17  J*I.N 
P<I«Jt>0* 

00  17  K*l  «N 

17  P  ( I  »  J )  *P  (I»J)*A(I*K)*A<KiJ> 
40  IF (ITFR.LT.IMAX)  60  TO  10o 

WRITE(R*600> 

600  FORMAT  </7Xt 12H  ITFP  ■  IMA*) 
50  CONTINUE 

RETURN 

601  WRITE (R«602)  IERR 

602  FORMAT (/7X.6M  IERR*I2) 

return 

END 
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Read  State  Space 
Quadruple  Data 
from  DDATA  File 
and  the  Remaininq 
Data  from  Cards 


Prepare  the  Data 
for  DIAK  Program 
and  Write  on  the 
Scratch  File  JS  and  Write 
an  End  of  File  Mark  on  it 


Read  and  Print 
the  Data 
Written  on 
File  JS 


Return 


Figure  102.  Subroutine  DDLAK  Flow  Chart 
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SUBROUT  !N£  00lAKU.RfC*n*Ht.Q?«Cl.C3»0»  I  .RK  .NXM.NRM.NUM) 

PURPOSE  -  TO  PREPARE  DATA  E OR  0]AK  PROPRAM 

ANAL Ic IS  -  A  E  KONtR  /  J  K  mAh£SH  -  The  mONEY»ELL  INC 

DATE  -OITTEN  -  19 Tc 

SUpPP  ‘'PRAMS  CALLEO 
ZE  '0 
Mi  E 
MP  >S 
ER-’M 
Mtu 
IN^TM 


ARGUMENTS  LIST 
A 


INPUT 

INPUT 

INPUT 


ST  AT r  transition  matrix 

CONTPOL  input  MATRIX 

ST ATf  OUTPUT  MATRIX 

CONTROL  OUTPUT  matrix 

INPUT  MATRIX  EOP  CONTROL  INPUTS  -  61 

INPUT  MATRIX  FOR  GUST  INPUTS  -  62 

STATE  OUTPUT  MATRIX  EOR  DESIGN  OUTPUTS  - 

STATE  OUTPUT  MATRIX  EOR  MEASUREMENTS  -  M 

output  matrix  for  design  outputs  -  o 

EEEO°ACK  GAIN  MATRIX 
MAXIMUM  NO  OF  STATES 
MAXIMUM  NO  OF  OUTPUTS 
MAXIMUM  NO  OF  INPUTS 


DIMENSION  AINXM.NXMI .b(NAM.NUM) ,C(NRM«NXMI »D<NRMiNUMI 
DIMENSION  Rl (NXM.NIIM) .R2INXM.NUMI 
DIMENSION  C» (NRM.N*M) .C3INRM.NXM) 

DIMENSION  Oil  (NRM.NUM)  .  RK  <NllM  ,NRM  I 
DIMENSION  MEADIP91 .CARDIZ01 

commo>/inout/i».im.ippint.inseRt«locate,null*marki?o> 

I  <  JO . US  <  JSO  *  JF  «  JO 

OATA  MOF HR (HRGt R »  HBG?P « MRMRR/4M  F  ,4M  Gl  .4M  C,Z  ,4H  M  / 

DATA  nR08R.HBAMfl,HC.MRCAR.MREAD/MH  0  .4M  AM  . IHC.4H  CAR.4HREA0/ 

DATA  «PTAP,MEN0/4H  TAP.4MEN0  t 
DATA  ‘JRRRR.HPf BR/4M  .4HPr  / 

DATA  *M>dK8/4H  RK  / 

REAO  IF  OATA  IS  ON  CAROS  ONLY 

READ! I R  *20) CARD 
20  FORMAT I20A4) 

IF  (CA^-D  (6)  .EO.HRMRo )  GO  TO  8.i 
IF(CA^0(6I .NE.HPERP1G0  TO  142 
CALL  7ER0(A.NXM,NXM! 

CALL  /EROIR.NXM.NUMl 
CALL  7fR0IC»NRMtNUMl 
CALL  7FR0I0.NRM.NUM1 
CALL  7FR0IRM.NUM.NPM ) 

RE AD 1TR *20) HE AO 

CALL  riLEUO.LOCATE.HFAD) 

READ!  IDIT.NX.NR.NU. ( (A( I.UI  . I  a  1 .NX  I .  J»l  .NX  1 . 

I ( (BII.JI .I«I.NX).Jsl.NU). ( (C<r.J).I*I.NR).J«I.NX). 

21  ID! f.JI *I»l .NR) . .NXA.NRA.NU A, MR  I  .NR2.NP3.MUl.NU2.NU3 

PARTITION  MATRICES  B.C.D 

ifinui.le.oistop  in 

IF  (NU’.LE.fllSTOP  111 

Figure  103.  Subroutine  DDI.AK  Program  Listing 


AK  10 
AK  11 
AK  12 
AK  13 
AK  1 4 
AK  15 
AK  16 
AK  17 
AK  18 
AK  19 
AK  20 
AK  21 
AK  22 
AK  23 
AK  24 
AK  25 
AK  26 
AK  27 
AK  28 
AK  29 
AK  30 
AK  31 
AK  32 
AK  33 
AK  34 
AK  35 
AK  36 
AK  37 
AK  38 
AK  39 
AK  40 
AK  41 
AK  42 
AK  43 
AK  44 
AK  45 
AK  46 
AK  47 
AK  48 
AK  49 
AK  50 
AK  51 
AK  52 
[AK  53 
[AK  54 
[AK  55 
[AK  56 
[AK  57 
[AK  58 
[AK  59 
[AK  60 
[AK  61 
!  AK  62 
[AK  63 
[AK  64 


1  uRTiY  -.  ■  ~  *4 


uu u  u  u  u 


IF (NP  >  ,LE  • 1  STOP  |ii 

DOIAK  65 

If (NR  i.LE.iMSfno  111 

ODIAK  66 

no  ?°  i*i. n* 

DOIAK  67 

no  24  Jal.NIII 

DOIAK  69 

24 

« 1  c  I .  n=fl<  l  *ji 

DOIAK  69 

no  29  J*t.NU? 

DOIAK  70 

JJ*Nll  ’  «  J 

DOIAK  71 

29 

92(1.  lUHtl.JJI 

DOIAK  72 

no  4.)  j=i,n* 

ODIAK  73 

no  34  T*l.NR| 

DOIAK  74 

34 

C 1  ( 1  •  IMCII.J1 

DOIAK  75 

no  40  1*1. 'jay 

DOIAK  76 

I isNS  .n«2» i 

DOIAK  77 

40 

mi.  n *c i n •  j» 

DOIAK  78 

no  44  i  =  i.‘iPj 

DOIAK  79 

00  44  Jsl.NIJl 

DOIAK  8|) 

44 

ODIAK  81 

If ( IP'INT.LT.61  00  TO  BO 

DOIAK  82 

CALL  'PWSU.NX4.NXi'. NX. NX, T.4hA  ) 

DOIAK  83 

CALL  <P»S  (0.NX4.NIIM.NX  .NH.T  .4h4  | 

DOIAK  84 

CALL  •PWSIC.NS4.NXm.NJ, NX. T.4*C  > 

DOIAK  85 

CALL  •PflS(0,N«4.NilM.Ns,NH.T.4H0  1 

ODIAK  86 

CALL  '°«S(R| .NXM.NHM.NX.NU! .T.4M«| 

I 

ODIAK  87 

CALL  •“WS<A?,N»m,niiM.NX,NIJ?.T.4HHP 

1 

DOIAK  88 

CALL  'PMS (Cl . NS4. N>  M.NW 1»NX,T,4mCI 

1 

DOIAK  89 

CALL  >PWS(C1.NSM.Nx4.nW3«NX.T,4HC3 

1 

DOIAK  90 

CALL  'PWS(OII  .MP4. NOW. NPl  , Kill, T.4MD1  |  > 

ODIAK  91 

80 

CONTI  HIE 

DOIAK  92 

DOIAK  93 

ORGANIZE  CASH  6 NO  T4P.  OATA  O'.  TAPE 

OOI AK  94 

ODIAK  95 

100 

«EAO( IP. 1201  CAPO 

DOIAK  96 

123 

fOBMAT ( 20 A4 1 

ODIAK  97 

If  (  tCxQOU  1  .EO.HBf  A0»  .AND.  (CAS’D!  ?»  . 

E0.HMT4P) inn 

TO 

160 

OOI AK  98 

If  (  (C'PlKl)  .EO.HPfOl  .»NO.(f  AM0(2l  . 

EO.HRCAP) 1 Gn 

TO 

100 

ODIAK  99 

If  (CAi’Odl  .EO.HEN0)  00  TO  3  0 

DDIAK100 

HPITFf JS.123)  CAPO 

DO  I  AK  1 0  1 

r.o  to  loo 

DOIAK 102 

160 

CONTI"()E 

D0IAK103 

If  (CA'»0(6I  .EO.MRrflM)  nO  TO  18., 

DDIAK104 

If  (CA)0(6I.E0.Mflr-|P)  r.o  TO  J3i 

ODIAK 105 

If  <CA->0  !6»  .EO.HPr,?n|  00  TO  22  ' 

D0IAK106 

IT (CAW0I6I .EO.HBMflp)  HO  TO  24. 

DOIAK 1 07 

If  (CAM()(6I  .EO.HflOflP)  00  TO  ?6 

DOIAK 108 

If  (CA“0(6)  .CO.HBA4PI  r,0  TO  2d  i 

ODIAK 1 09 

If  (CAoo(6l .EO.MflRKnmn  TO  235 

OOI  AK 1 1 0 

162 

CONTI  -  UE 

DOIAK11) 

WRITE  1 14.1651 

DDIAK112 

165 

FORMAT  (//IX. ?4HINPi|T  CONTROL  CAPO  ERROR) 

001 AK 1 1 3 

CALL  r*WM<l^M00!A,4Hv  O.0*U> 

DO  I AK 1 1 4 

DOI AK 1 15 

WRITE  4*THIX  OATA  ON  SCRATCH  FILE  FOR  DIAK  oROnPAM 

ODIAK116 

DDIAK117 

1 90 

CONTI"' IE 

DOI AK | 18 

CALL  •'TPIA.NX.NX.NXM.NXM,  JSi 

DDIAK119 

no  to  u; 

DOI AK )20 

200 

CONT  I’  .'Jf 

ODI AK 121 

CALL  ••  TP  (81  .NX.NU  |  ,NXM  .NUM.  ,|S  l 

OOI AK 122 

no  to  io> 

DOI AK 123 

220 

CONTINUE 

ODIAK 1 24 

CALL  vTP(H2.NX.NU2,nXM.NUM» JSI 

ODI AK 125 

no  TO  130 

ODI AK 126 

240 

CONTINUE 

ODI AK 127 

CALL  -TP (Cl .NRI .NX.NB4.NXM. JSI 

DDIAK128 

no  TO  1)0 

DDIAK129 

260 

CONTI  HIE 

00 I AK 1 30 

o  o  r»  o  r>  o 


CALL  *TP<01  I  »NP|  .Nlil  .NRM.NU'*.  )S» 

GO  TO  10  0 
280  CONTI  UP 

CALL  •*' TP<C7.NP-1«NX,NRM.NXM,  1S1 
GO  TO  100 
285  CONTI-UE 

RF  AO  '■•AIN  MATRIX  Fpf)M  |1H  A  T  A  FILE 

RF  AO  I  IP. ?0>HFA0 
290  CONTINUE 

reaoi  in.aoiCAPn 
no  ?9*r  1=1.20 

IFICAPOin.NE.HPAOlIUGO  TO  200 
295  CONTINUE 

CALL  »NPTM(HK,NUM.N«M.J0I 
RFwTNo  JD 

CALL  iTPIGK.NUI .NPl.NUM.NPM.  JS) 

GO  TO  | DO 
300  CONTINUE 
eno  file  js 

PEKIN'  JS 

IF( ( IpPINT.LT. S) .AND. ( IDPINT..E. 3) 1  GJ  To  400 
PE  AO  f.  NO  PRINT  OUT  TAPE 
WRITE* IK. 3101 

3 » 0  FORMAT  <lHI,Ix.?3H»»»  OIAK  InP'IT  DATA  •*•,//) 
320  CONTINUE 

READ!  IS. I20)CAPO 
IF  (E^flJSll  3*". 340 
3<.0  WRITE*  IK. 35')>  CAPO 
350  FORMA* ( 1X.2CA4I 
GO  TO  32l> 

360  CONTI  .UE 
REWIND  JS 
WRITE* IK. 38* ) 

380  FORMA* I//.IX. 30H«»*  END  OF  nlAK  Input  DATA 
400  CONTI  UE 
RETUR-. 

ENO 


OOI AK 131 
00 1 AK 132 
OOIAK 133 
OOI AK 1 34 

OOIAK 135 
OOI AK I  36 
OOIAK I  37 
1)01  AK  1  Jm 
OOI AK 1 39 
OOIAK  1*»0 
DO  I AK 14 1 
DDIAK142 
00 1 AK 143 
00 1 AK 1 44 
DO  I AK 145 
DO  I AK 146 
00 1 AK 1 4  7 
OOI AK 148 
DD I AK 1 49 
OOI AK 150 
DDIAKlSl 
OOIAK 152 
OD I AK 1 53 
OOI AK 154 
DO I AK 155 
D0IAKI56 
OOI AK 157 
DDIAK158 
OOI AK 159 
OOI AK 160 
OOIAK 161 
ODI AK 162 
OOI AK 163 
00 I AK 1 64 
OOIAK 165 
OOIAK 166 
OOI AK 167 
OOI AK 168 
OOIAK 169 
OOI AK 1 70 
OOI AK 1 7 1 


Figure  103.  Subroutine  DDLAK  Program  Listing  (Concluded) 
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Read  State  Space 
Quadruple  Data  from 
QDATA  File,  Gain 
Data  from  DDATA  or 
FDATA  File  and 
the  Remaining 
Data  from  Cards 

~  t  _ 

Prepare  the  Data  for 
FFOC  Program  and 
Write  on  the  Scratch  File 
JS  and  Write  an  End 
nf  File  Mark  on  it _ 

~  T  , 

Read  and 
Print  the  Data 
Written  on 
File  JS 


Figure  104.  Subroutine  DFFOC  Flow  Chart 
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i  Zib'M  *&}*& !?«*  -a.ii 


suhro  it inE  orroc(».R*c«n.nt ,r?.ci«C3«oi  l  .rk.n<«*nrm*numi 

PURPOSE  -  TO  PREPARE  OAT A  F OR  EEOC  PROGRAM 

ANAL  I  s  l  S  -  A  E  KONaR  /  J  k  mA*-ESH  -  T RE  MONfYNELL  INC 

DATE  BITTEN  -  |97s 

SUBPR  if.RAMS  CALLEO 
ZERO 
El,  E 
MPRS 
PTR 
INpTM 


ARGUMENTS  LIST 

A 


INPUT 

INPUT 

INPUT 


state  TRANSITION  HATAIA 

control  INPUT  MATRIX 

state  output  MATRIX 

CONTROL  OUTPUT  MATRIX 

INPUT  HATR I X  EOR  CONTROL  INPUTS  -  61 

INPUT  4ATRIX  EOR  GUST  INPUTS  -  62 

STATE  OUTPUT  MATRIX  EOR  DESIGN  OUTPUTS  - 

STaTe  OUTPUT  MATRIX  FOR  MEASUREMENTS  -  M 

OUTPUT  HATH A  FOR  DESIGN  OUTPUTS  -  0 

FEEOPACK  GAIN  MATRIX 

MAXIMUM  NO  OF  STATES 

MAXIMUM  NO  OF  OUTPUTS 

MAXIMUM  NO  OF  IN“UTS 


DIMENSION  A(NXM.NXM) .B(NXM.NUM) ,C(NRM.NXMt .0(NPM,NUM1 
DIMENSION  B1 (NXM.NUM) .R?(NXM,NUM) 

DIMENSION  Cl (NRM.NxMl .C3(NRM,NXM» 

DIMENSION  Dll (NRM.NUMl .BK(NUM.NHM) 

DIMENSION  HEA0(201 ,CARD(20> 

COMMON/ INOUT/IR. I M.lPPINT, InSFPT. LOCATE .NULL *M»RX (20) 

1 • JO. JS» JSL). JE t JO 

OAJA  «RE  BH » MBG  IB*  H«G2H  •  HBHBO/AH  F  .AM  Gl  *  AH  G?  .AH  H  / 

DATA  mRDBB.HRAMH.MC.HRCAR.HRE»D/Ah  0  .AH  AM  . JMC.AH  CAR. AHREAD/ 
OATA  hRTAP.HENO/AM  TAP.AHENO  / 

DATA  hRBBB.HPERR/AM  .AHPF  / 

OATA  mBAMG.HRAKP.HHDEL/AH  AfG.AH  AX (.AH  QEL/ 

READ  IF  DATA  IS  ON  CAPOS  ONLT 

READ ( |R.20 I  CARO 

IF (CAPO (61 «EQ .HRRRm I  00  TO  PO 

IF (CARD (6 1 »NE .HPERB I  00  TO  (6? 

CALL  ’ERO(A.NXM.NXM) 

CXLL  ZFRO(B.NXM.NUm> 
call  7ER0(C.NRM.NXm» 

CALL  7ER0(D. NRM.NUMl 
CALL  -xfROlHX.NUM.NRMI 
REAO( (W.20IHEAO 
20  FORMAT (20AAI 

CALL  filE(JQ. LOCATE, HFADI 

READ (  |0)T.NX,NR.NU,((X(I.J».I*I,NX».J«1.NX». 

1 ( (B(I.J) . I«1 .NX» • Jxl.NU) , ( (r <I« J) . !»1»NR>  » J»1»NX>  » 

2( (0( I. J> . I»I ,NR»  » Jal»NU> .NXA.NRA.NUA.NR1 .NR2.NR3.NUI .NU2.NU3 

PART  I T ION 'MATRICES  R.C.O 

IF(NU) .LE.OISTOP  111 
IF(NU?.LE.O)STOP  Ml 
IF (NR i .LE.CISTO®  111 

Figure  105.  Subroutine  DFFOC  Program  Listing 


DFFOC  2 
OEFOC  3 
orfoc  A 
OEFOC  5 
OFFOC  6 
OFFOC  T 
OFFOC  8 
DFEOC  9 
OFFOC  10 
OFFOC  11 
OFFOC  12 
DFFOC  13 
OFFOC  1A 
OFFOC  15 
OFFOC  16 
DFFOC  l? 
DFFOC  18 
OFFOC  19 
OFFOC  20 
DFFOC  21 
DFFOC  22 
DFFOC  23 
OFFOC  2a 
OFFOC  25 
DFFOC  26 
DFFOC  27 
DFFOC  28 
DFFOC  29 
OFFOC  30 
OFFOC  31 
OFFOC  32 
DFFOC  33 
OFFOC  34 
DFFOC  35 
OFFOC  36 
DFFOC  37 
OFFOC  38 
DFFOC  39 
DFFOC  40 
OFFOC  41 
DFFOC  42 
OFFOC  43 
DFFOC  44 
DFFOC  45 
OFFOC  46 
OFFOC  47 
OFFOC  48 
DFFOC  49 
OFFOC  50 
DFFOC  51 
OFFOC  52 
DFFOC  53 
OFFOC  54 
OFFOC  55 
DFFOC  56 
DFFOC  57 
OFFOC  58 
OFFOC  59 
DFFOC  60 
DFFOC  61 
OFFOC  62 
DFFOC  63 
DFFOC  64 


280 


o  r>  n  non 


IF(NR->.LE.ClSTOP  111 
00  28  !*1.N 1. 

00  ?4  J*  I  •  NO  1 
24  nillt  l)>BI|.JI 
DO  28  JaliNII? 

JJ*NU I *J 

28  B2< l. JI»R< I.JJI 
00  40  J* 1 iNX 
00  34  1*1. NRl 
34  C I « 1  •  M*C<  I «  J  > 

00  40  1  * l  «NR3 
I ! *NR l .NR2* I 
40  C3(  1  «./l  *C  (  I  I .  J) 

00  44  t*|,NRl 
00  44  J*l.NU! 

44  D1 1  (  I  .  J)*L)C  I  .  Jl 

1F<  IPoiNT.LT.4l  f,0  TO  8ft 

CALL  ••.PRS(A.NXM.NXM.NX.NX.T,4mA  I 

CALL  >'PRS<8«NXM.NUm.NX.NU.T  ,4hR  > 

CALL  mPRSIC.NRM.NXM.NP.NX.T.AHC  I 

CALL  tPRS<0«NRM.NUM.NP.NU.T,4HD  I 

CALL  '‘PRSIR1  .NXM.NUM.NX.NI11  .T.4HH1  I 
CALL  *'PRS  (H2.NXM.Nl/M.NX.NU2.T  *4HH?  I 
CALL  '»PRS(CI.NRM.N*M«NP|.NX,T,4hCI  > 

CALL  'PRS (C3.NRM .NXM  «NH3 .NX. T , 4MC 1  » 

CALL  MPHS  <01 1  .NRM.NUM  <  NP  l  »N  j  1  .  T  .  4MD  I  )  t 
80  CONTINUE 

ORGANIZE  CARO  ANO  TAPE  DATA  OS  TARE 

100  READ <  [R • 1 20 •  CARO 
120  FORMAT (29A4I 

IF ( <C aROI 1 1 .EO.hRFAOI .AND, (CARD (?) .EQ.MRTAPl I  Go  TO  160 
IF ( <CxRO< 1) .EO.mREaO* .AND. <CAR0(2l .EO.mbCARI I  on  TO  100 
IFICAunm.EO.MENOl  GO  TO  3f0 
WRITEIJS.I20)  CARO 
GO  TO  100 
160  CONTINUE 

IF<CARD<6)  .EO.HfiFflpi  f, 0  TO  18C 
IF  (CARO  (6)  .EO.hRGIr)  r,0  TO  ?0C 
IF  (CARO  (6)  .EQ.MRG2R I  r,0  TO  ?2:.. 

IF (CARO (6)  .EQ.MRHRs)  GO  TO  246 
IF(C*R0<6)  .C0.MR0R8I  GO  TO  26f. 

IF (CAP0I6) .E0.HHAM8 I  GO  TO  28t> 

IF (CArD<6) .EO.HRAKgiGO  TO  285 
IF (CArO(6I .EO.HRAKoiGO  TO  285 
IF(CAR0(6l  .EO.HBDELlCiO  TO  285 
162  CONTINUE 

M»ITE(I*»165> 

165  FORMAT (//IX,?4HINS|IT  CONTROL  CARD  ERROR* 

STOP  111 

WRITE  MATRIX  OATA  ON  SCRATCH  FILE  FOR  FFOC  PROGRAM 
180  CONTINUE 

CALL  hTRIA.NX.NX.NxM.NXM, JSl 
GO  TO  100 
200  CONTINUE 

CALL  yTP(81.NX.NUl«NXM.NUM»jS> 

GO  TO  100 
220  CONTINUE 

C^LL  hTP (B2.NX .NU2.NXM.NUM. JS> 

GO  TO  100 
240  CONTINUE 

CALL  HTP(CI«NR1 .NX.NRMtNXM, jSt 
GO  TO  100 

Figure  105.  Subroutine  DFFOC  Program  Listing 


OFFOC  65 
OFFOC  66 
OFFOC  67 
OFFOC  68 
OFFOC  69 
OFFOC  70 
OFFOC  71 
OFFOC  7? 
OFFOC  73 
OFFOC  74 
OFFOC  75 
OFFOC  76 
OFFOC  77 
DFFOC  7fl 
DFFOC  76 
OFFOC  80 
OFFOC  81 
DFFOC  82 
OFFOC  83 
OFFOC  84 
OFFOC  85 
DFFOC  86 
OFFOC  87 
OFFOC  88 
OFFOC  89 
DFFOC  90 
OFFOC  91 
DFFOC  92 
DFFOC  93 
DFFOC  94 
OFFOC  95 
OFFOC  96 
DFFOC  97 
OFFOC  98 
OFFOC  99 
OFFOC1 DO 
DFFOC 101 
DFFOC 102 
OFFOC 103 
DFFOC 104 
OFFOC 105 
OFFOC 106 
DFFOC 107 
DFFOC 108 
DFFOC 109 
DFFOC 110 
DFFOC 1 1 1 
DFF0C1 12 
OFFOC 113 
OFFOC 11 4 
DFF0C1 15 
DFFOC 1 16 
0FF0C117 
OFFOC 118 
0TFOC119 
DFF0C120 
0FF0C121 
0FF0C122 
OFFOC 123 
DFF0C124 
DFF0C125 
0FF0C126 
DFF0C127 
DFFOC 128 
DFF0C129 
OFFOC130 

(Continued) 
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non  o  o o 


?60  CONTINUE 

CALL  *TP(D1 1  tNRI  iNul  «NRM*NU“«  JS> 

GO  TO  100 
280  CONTINUE 

CALL  «TP(C3.NR3.NK.NR“«NUM, jSt 
GO  TO  100 

READ  SAINS  FRO*  OOATA  OR  rOAT*  FILE 

285  CONTINUE 
J0F«jr 

IF (CA90<6>  .EQ.HRAKSi JOFbJO 
READ ( TR. 126 1 Hf AO 
290  CONTINUE 

RE AO ( JDF « 1 20 1  CARO 
00  29S  I»1.20 

IF (CARD ( I ) .NC .HEAD ( I ) 1 60  TO  2R 0 
295  CONTINUE 

CALL  7ERO (8K .NUM.NpM I 
CALL  INPTM(RK,NUN»NPN. JOFl 
REWIND  JOF 

CALL  *TP<8K.NU1  .NRl.NlJM.NPM.JSI 
GO  TO  100 
300  CONTINUE 
ENO  FILE  JS 
REWIND  JS 

IF( (IPRINT.LT. S) .Ano. UPRlNT.NE.3l )  GO  TO  400 

READ  ANO  PRINT  OUT  TAPE 

WRITEUW.319I 

310  FORMA M1H1.1X . 23H***  FFOC  INPUT  OATA  ••*.//) 
320  CONTINUE 

READ(JS«1201CARO 
IF  (EnF(JS)l  360.340 
340  WRITE! IWi350»  CARO 
150  FORMAT (//IK. 20A4I 
GO  TO  320 
360  CONTINUE 
REWIND  JS 
400  CONTINUE 
return 

ENO 


OFFOC1 31 
OFFOC132 
0FFOC133 
DFF0C134 
DFFOC 1 35 
OFFOC136 
DFFOC 137 
DFFOC 138 
DFFOC 139 
DFF0C140 
0FF0C141 
DFFOC l 42 
0FF0CI43 
OFFOC144 
DFFOC145 
0FF0C146 
0FF0C147 
DFF0C148 
0FF0C149 
OFFOC1SO 
DFF0C151 
OFFOC152 
DFFOC153 
DFFOC 154 
DFF0C155 
DFFOC 156 
DFFOC157 
DFFOC 158 
DFF0C1S9 
DFF0C160 
0FF0C161 
0FF0C162 
0FF0C163 
DFF0C164 
DFFOC165 
DFF0C166 
OFFOC167 
DFFOC .68 
DFF0C169 
DFF0C170 
OFFOCI71 
0FF0C1 72 
DFFOC 173 


Figure  105.  Sx’broutine  DFFOC  Program  Listing  (Concluded) 
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Figure  106.  Subroutine  DLSA  Flow  Chart 


",  * 


SUBROUTINE  OLSAI A.B.C.0.8I .R2.C  1  .  C3.DI  I  .HK  .  F)KCl  .NX  .NR  ,NU» 
1NXM.NmM.NUM) 

PURPOSE  -  TO  PREPARE  HAT  A  FOR  LSA  PROGRAM 

ANaLI^IS  -  A  E  KONaR  /  J  K  MA8ESN  -  THF  HONETMrLL  INC 

OATE  WRITTEN  -  197g 

SUBPROGRAMS  CALLED 
ZERO 
f  ii  r 
MP3S 

INPTM 


ARGUMrNTS  LIST 

A 


INPUT 

INPUT 

INPUT 


STATf  TRANSITION  MATRIX 

CONTROL  INPUT  MATRIX 

STATE  OUTPUT  MATRIX 

CONTROL  OUTPUT  MATRIX 

INPUT  MATRIX  f OB  CONTROL  INPUTS  -  GI 

INPUT  MATRIX  FOR  OUST  INPUTS  -  02 

STATE  OUTPUT  MATRIX  FOR  DESIGN  OUTPUTS  -  H 

STATE  OUTPUT  MATRIX  FOR  MEASUREMENTS  -  M 

OUTPUT  MATRIX  for  OESIGN  OUTPUTS  “  0 

feedback  gain  matrix 
BK*C3 

MAXIMUM  no  of  STATES 
MAXIMUM  NO  OF  OUTPUTS 
MAXIMUM  NO  OF  INPUTS 


DIMENSION  A(NXM.NXM) .r(NXM.nUM) .C(NRM.NXM) iO(NRM.NUM) 

DIMENSION  RI (NXM.NilM) .B?(NXm.nUM) 

DIMENSION  Cl  INPM.NXMI ,C3<NRm»NXM) 

OIMENSION  Oil (NRM.NUMI «BK (NJM.NRM) 

DIMENSION  8KC3INUM.NXMJ 
OIMENSION  HE  AD ( 20 ) • CA«0  <  20 ) 

commo-i/inout/ir,im.ippint. insert. locate. null.mark (20) 

1. JO, JS.JSD. JF.JD 

OATA  HBF0H •  HBG 1 B . HHG2B , MBH8R/..H  F  .AM  01  ,4H  C.2  ,4H  M  / 

OATA  HBDBB.HBAKG.HC.HPCAR.MRCAO/'AM  0  . 4H  AKG,)HC,4H  CAR.4HREA0/ 

DATA  HBTAP.MEN0/4H  TAP.4MEN0  / 

DATA  MB8BB.HPEBB/4M  ,4MPF  / 

DATA  H8AKP/4M  A*P / 

IGAINrC 

READ  QUADRUPLE  DATA  FROM  ODaTA  FILE 

READ(!P.20)  CARD 

IE(CAR0<6) .NE.HPEBR)  GO  TO  <.2» 

CALL  7ER0(A,NXM.NXM) 

CALL  ZEROIB.NXM.NUmi 
CALL  /ERO<C.NRm,NXM) 

CALL  7ER0(0,NRM.NUM» 

CALL  7ER0  <BK .NMM.NoM) 

READ((R»20)  HEAD 
20  FORMAT (20A4) 

CALL  rILE( J0.L0CATr.MFAD) 

READ ( .I0~.  T .NX.NB.NU.  ( ( A  ( I ,  J)  •  1*1  .NX )  t  J«1  «NX )  , 

I ( (B( I. J) » 1*1 .NX) .Jsl.NUI « ( (C ( 5. J) .1*1, NR) . J*I,NX) • 
2((0(I.J)»I*1,NP)»J*1»NU) , NX A, NR A, NU A. NR I .NR2.NR3.NU1 .NU2.NU 3 

PARTITION  MATRICES  B.C.D 

DO  2B  1*1 .NX 

Figure  107.  Subroutine  DLSA  Program  Listing 
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DLSA 

DLSA 

DLSA 

DLSA 

OLSA 

OLSA 

OLSA 

OLSA 

DLSA 

OLSA 


2 

3 

4 

5 

6 

7 

8 
9 

10 

n 

12 

13 

14 

15 
ib 
IT 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 
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I Pp 


no  24  jsI.nui 

«l  (  I  .  i)  =  8(  I .  J» 

00  28  J=1.NU2 
J  J*NU I ♦ J 
R2(|.  il  =8  d  •  J  J> 

00  40  .)  =  I  «N* 

no  34  t=i,NPi 

Cl  (  I«  ll  =C  (  I .  J) 

00  4 C  l=|.NR3 
I I*N»’ «NR2*  I 

c 3 ( i *  n=cm.ji 

00  44  1=1. NP| 

no  44  J=|  .NtJl 

011(1. J  >  =0 ( ! . J I 

IFdPl'INr.LT.fel  GO  TO  4C0 

CALL  MPrtS ( A.NXM.NXm.Nx .NX . T .4hA  I 

CALL  "PPS(R.NXM,NUM.NX.NU.T.4hH  I 

CALL  '*PPS(C.NoM,MXM.No,NX,T,4hC  I 

CALL  (PRS(0.NPM.Nu«.NR.NU.T.4«D  I 

CALL  "PRS (HI .NXM.NHM.NX.NU1 »  T  *4HH1  1 

CALL  xPRS ( 82 .NXM.NUM.NX *NU? • T  t 4hH2  * 

CALL  MPPSICl .NRM.NXM.NR1 »NX.T.4hCI  I 
CALL  iPRS<C1.NPM.NXM.NP3.NX,T»4hC3  I 
CALL  tPWS<011.NPM,NUM.NPl.NUl.T.4H011  I 

RF  AD  GAIN  MATRIX  OATA  FPOM  ODaTA  OP  FOATA  FIlE  op  from  input 
CONTINUE 

READ ( I O  »2o I  CAPO 

IF  (CARO*  1 1  .EO.hfnDI  C.O  TO  6  .0 

IC.AINd 

IFKClPOd)  .EO.HPEAOI  .ANO.  (C*u0(2)  .EO.MHTAP)  I  C-0  TO  460 
IF((CxPOdl.EO.HRFAO*.ANO.(CAPO(2*.EO.MBCA«n  00  TO  56U 
CONTI  iUE 
WRITE (1W.440I 

FORMAT  {//.IX.  P4H INPUT  CONTROL  CA*»D  ERROR) 

STOP  ill 
CONTINUE 
IOAINd 

IF(CAR0(6I  .EO.mRAKG)  r,0  TO  48., 

IF  ( C A-  0  ( 6 )  .EO.HHAKO I  r,0  TO  48.'. 

00  TO  4?0 

CONTINUE 

JDFsJf 

I  F  <CAJ0  (61  .FQ.HRAKG)  JOFaJO 
RFAOI IR.20 I  HE  AO 
CONTIillE 

READ!  IOF.20ICAPD 
00  52  I  a  1.20 

IF(CA  -0(11  .NE.HFAOdl  I  00  TO  5^0 
CONTINUE 

CALL  7EM0(RK.NUM.NRM) 

CALL  |NPTM(HK.NUM.NRM, JOF) 

RFWINn  JOF 
00  TO  4 f)0 
CONTINUE 

CALL  7FR0(RK,NUM,NPM> 

CALL  TNPTM(H«<,NUM,nRM,IR) 

C.O  TO  400 
CONTINUE 

IFdGxlN.EO.OI  RETURN 

COMPUTE  CLOSED  LOOP  QUADRUPLE  DATA 

00  70  1*1. NU1 
00  70  J*1.NX 


DLSA  65 
OLSA  66 
DLSA  67 
DLSA  68 
OLSA  69 
OLSA  70 
OLSA  71 
DLSA  72 
OLSA  73 
DLSA  74 
DLSA  75 
DLSA  76 
OLSA  77 
DLSA  78 
DLSA  79 
DLSA  80 
OLSA  81 
OLSA  82 
OLSA  83 
OLSA  84 
OLSA  as 
OLSA  86 
OLSA  87 
OLSA  88 
DLSA  89 
OATA  DLSA  90 
OLSA  91 
OLSA  92 
DLSA  93 
DLSA  94 
DLSA  95 
DLSA  96 
OLSA  97 
DLSA  98 
DLSA  99 
OLSA  100 
DLSA  101 
DLSA  102 
DLSA  103 
DLSA  104 
OLSA  105 
OLSA  106 
DLSA  107 
DLSA  108 
DLSA  109 
OLSA  110 
DLSA  111 
OLSA  112 
DLSA  113 
DLSA  1 14 
OLSA  115 
OLSA  116 
DLSA  117 
OLSA  118 
DLSA  119 
DLSA  120 
OLSA  121 
OLSA  1 22 
OLSA  123 
DLSA  124 
DLSA  125 
OLSA  126 
DLSA  127 
OLSA  128 
DLSA  129 
OLSA  130 


Figure  107.  Subroutine  DLSA  Program  Listing  (Continued) 
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70 


no 


90 


8<C3<  t . j>=o.o 

DLSA 

131 

no  to  K=i.Nm 

OLSA 

132 

RKC  3  < T .  J>  sRKCM I* J) «PK ( |*K t *C3(K 

.  J» 

DLSA 

133 

00  80  I  8 1  *  NX 

OLSA 

13* 

no  80  J8 1 .NX 

OLSA 

135 

no  80  «*1.NU1 

OLSA 

13b 

A  (  I  *  Jt  *A  d  < J>  *81 ( liKtHKClki.ll 

DLSA 

137 

00  90  J*1 *NP 1 

DLSA 

138 

no  90  j* i • nx 

DLSA 

139 

00  90  K*  1  «Ntl  1 

DLSA 

140 

C  (  1  •  J)  *CU  *  J)  «nl  1  (  r  •  *)  •8KCKK,  J) 

DLSA 

141 

DO  10:.  1*1. NX 

DLSA 

14? 

DO  1 0  J*1.NU? 

OLSA 

143 

8(1. J 1 *H2 ( I . J 1 

OLSA 

144 

NU*NU3 

DLSA 

145 

irdPVJNT.LT. 6)  RETURN 

DLSA 

146 

C  A(_L  mPRS  (A.NxM.NXM.N*,NX.T,4hA 

> 

OLSA 

147 

CALL  4PRS(R.NXM»NUM,NX.NU.T,4Hfl 

» 

DLSA 

1  40 

CALL  mPRS<C.NR4.NXm.NP.NX,T.4hC 

,  > 

OLSA 

149 

CALL  '<PRS(0.NRM,NUM,NP.NU.T,4W0 

> 

OLSA 

ISO 

CALL  mPRS<RK.NUM.NXH.NUI.NX,T,4HHK  ) 

DLSA 

151 

RETURN 

OLSA 

152 

END 

OLSA 

153 

Enter 


Pead  the  Names  of  the 
System  Variables  and 
Print  Them 


r 


Write  the  Names  of  the 
System  Variables  on 
SDSTP  File 


Compute  CO  Matrix 


Virite  CO  Matrix 
on  SDSTP  File 


Compute  Cl  Matrix 


Write  Cl  Matrix 
on  SDSTP  File 


Write  End  of  File 
Mark  on  SDSTP  File 


SUS«0  'TINE  FIN*(A.,-..C.U.CC.  iA  .E.NX.NB.NU. 

INXM.N  -.M.NUM.NXBM.miPUM) 

PJRPO  r  -  TO  O'MPUTf  fk£<juE'iCy  ijOMfiiN  ^PRESENTATION 
Or  ST  TE  SPACE  OUA'iPUoLf  04’ 4 

ANAL  l  IS  -  4  F  KO'I/.W  /  J  K  MAwESH  -  THF  HONF  T«l"LL  INC 
DATE  o  l  T  T  E  N  -  IRTs 

SUOPP  ’.DRAMS  CALLED 
if.  n 
MP-5 

AROUM. NTS  LIST 


0|MF.N  ION  AtNXM.NXMt  «H(NXM.*|UM)  .C(NHM.NXM)  .D(NRM.NUM) 

OIMCN- ION  CC (NXPM.vXPlIHJ .NAmC (NXRl)M) 

DIMENSION  CAPO(?OI 

COMHO-  /INOUT/ IP. I*. IPPINT . I  USE  A  T .LOCATE .NULL » MARK  1 20 >  * 
i  jo. js. jsn. jf, jo 

DATA  -*C.HEND«MNApr/IHr«AHFND  ,4hNA»«E/ 

NXP«N«  »NP 
NXPU="XR*NU 
I2'J  CONTI  IJf 

PEADI  tP,  U'lCAPD 
140  FORMAT  (26A4> 

ifiCA'Din  .fo.hfnoiff  turn 

IMCA  'O(l)  .FO#HNAMc»r,o  TO  2  0 
WRITE  (  IW.IH.it 

ISO  FORMA* (//. 1 X.37H0ATA  CONTROL  F«P(i  SPECIFICATION  ERROR) 

STOP  t  1  ) 

203  CONTI- UE 

READ  iNO  *MTr  NAM'S  OF  THE  SYSTEM  VARIABLES 

RE  AO  (  iP.  37' it  (NAME  ( j )  .  1  =  1  «NXP(li 
370  FQPMAl  ( HA  I ;) ) 

W° I Tf ( I w«  37S t 

375  forma:  ( IHl  ,//.t  x.Pr.NNsMfS  OF  TriE  OUTRJT  VARIABLES.//) 

WRITE ( IW.3HF) (NAMr ( l ) , 1*|.n<H( 

3H0  F 0Rh AT(IX.AIj) 

WSIIE  f IW. 3851 

3HS  FORMA:  (//.IX. PHHNAMFS  OF  TH‘  INRUT  V AR I AHLES. // ) 

NXRP l rNXR. 1 

WRITE ( IW.3HT) (NAME ( I ) . I«NXRd|.UXRM) 

WRITE  USD) NXRU.UU,  (NAME  (  I )  ♦  1  =  1  .NXPu) 

COMPUTE  CC  AND  WPItf  on  SOS  TP  EIlf 

CALL  /ERO(CC.NXRM».>aRuM1 

Figure  109,  Subroutine  FINK  Program  Listing 


FINK  10 
FINK  11 
FINK  13 
FINK  13 
FINK  1 4 


c 

A 

I', ’PUT 

ST  A  Tr  TRANSITION  MATRIX 

FINK 

15 

c 

H 

I '.°UT 

control  input  matrix 

FINK 

16 

c 

f 

INPUT 

STATr  OUTPUT  matrix 

FINK 

17 

c 

0 

I -.'OUT 

C0nT->0l  OUTPUT  matrix 

FINK 

18 

c 

CC 

fob  sT'rind  cc»  a nu  ci  matrices 

FINK 

19 

c 

NA  ‘F 

array  for  system  variables  names 

FINK 

30 

r 

NX 

INPUT 

NO  OF  STaTFS 

FINK 

21 

c 

NR 

INPUT 

NO  or  lUTPUTS 

FINK 

22 

c 

HU 

IM°U1 

NO  Or  INPUTS 

FINK 

23 

C 

NX  ' 

I'  PUT 

MAXI-'U*  NO  OF  STATES 

FINK 

24 

c 

NR  • 

l*  PUT 

MAXI  MU'*  NO  OF  OUTPUTS 

FINK 

25 

c 

NU  ' 

INPUT 

MAXIMUM  NO  OF  INPUTS 

FINK 

26 

c 

NX  ’M 

INPUT 

maximum  row  oi mfnsion  for  cp  and  ci 

FINK 

27 

c 

NX-IIM 

INPUT 

MAXIMUM  COLUMN  dimension  FOR  CO  AND  C) 

FINK 

28 

FINK  20 
FINK  30 
FINK  31 
FINK  3? 
FINK  33 
FINK  34 
FINK  35 
FINK  36 
FINK  37 
FINK  38 
FINK  39 
FINK  40 
FINK  41 
FINK  42 
FINK  43 
FINK  44 
FINK  45 
FINK  46 
FINK  47 
FINK  48 
FINK  49 
FINK  50 
FINK  5| 
FINK  5? 
FINK  53 
FINK  54 
FINK  55 
FINK  56 
FINK  57 
FINK  58 
FINK  59 
FINK  60 
FINK  61 
FINK  62 
FINK  63 
FINK  64 


00  10  1*1. Nx 

FINK 

65 

00  28  J*I.NX 

FINK 

66 

200 

CCU»  n«-AU*J* 

FINK 

67 

00  10  J*1.NU 

FINK 

68 

JJ«NX- .J 

FINK 

6* 

100 

CCU.  IJ»  »rt  *  I  •  J> 

FINK 

70 

00  3b  I  *  1  •  1.0 

FINK 

7 1 

I  I*NX« ! 

FINK 

72 

00  1? 

fink 

73 

120 

crui.  j»*-cu.n 

FINK 

74 

00  3*  J*I»NU 

FINK 

76 

JJ.NX-'.J 

FINK 

76 

3*0 

cc«!i.jJ*»ou».n 

FINK 

77 

00  16  I  *  1 «  NR 

FINK 

78 

I ! *NX  » I 

FINK 

7-# 

360 

ccui.mu.o 

I  INK 

80 

CALL  ■'PHSICC.NXBM.'IX9uP.N<B.N«R|J.l  .4r*C0  » 

FINK 

ai 

WRITE (J60I  (  CCC<  !. -J»  •  J*l  •«<■»)».  1*1  »NXB> 

FINK 

82 

c 

FINK 

83 

c 

CObPLMf  Cl  ANO  WRITE  IN  SOSTP  FILE. 

FINK 

84 

c 

FINK 

85 

CALL  .'£WOlCC»NX»*«NXWltM) 

FINK 

86 

00  26  1*1. NX 

KINK 

87 

260 

CCU«<  )*!.(• 

FINK 

88 

CALL  •'PHS(CC.NXPM,MXKijM,N'(O.N>Ril.T.*NCl  » 

FINK 

80 

«RITE(  JSU>  UCCU.  M  , J* 1 .NtBiD  , !«1 .NXR» 

FINK 

90 

c 

FINK 

9| 

c 

WRITE  AN  END  OF  F  tt.E  ’<AHK  O’j  sOSTP 

FINK 

92 

c 

FINK 

93 

ENDFIi  f  JSO 

FINK 

94 

00  TO  l?v 

FINK 

95 

ENO 

FINK 

96 

Figure  109.  Subroutine  FINK  Program  Listing  (Concluded) 
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SU«BOlTINf  QUID  (  I  «  I.IT.JJ.Y.NI 

..  2IoEN  11 0N  r  *1  •.'(  «Y'M5>  .  10(5*  ..i0(5» 
50  tobmat ( 


03  III  K z  1  «  |  I 
03  10  H=1.JJ 

if( y t*  .mi  .fo.n.i  r,oro  ion 

m*m*i 

vo ( 1 1 t i « v i n « m 

IouinsK 
J0( 1 1 n  =m 

IF  (  M  •  .LT.5)  r,OTO  1*3 

X»ITEr  H.  SO  Min  (L) .  JfilLl.YO  (Li  *L*1.  I  Til 

1 11=0 

1  00  C3MT I  ue 

IF  (  |  I  I  .E0.01  Pf TUB" 

BCTUB  *  IR,SCI  ‘  ln<U  ’  Jr”L  ‘  ,y0a'  ,L*l  •  I  I  I  > 
ENO 


OUTP  Z 
OUTP  3 
OUTP  4 
OUTP  5 
OUTP  6 
OUTP  7 
OUTP  8 
OUTP  9 
OUTP  lo 
OUTP  li 
OUTP  1? 
OUTP  13 
OUTP  14 
OUTP  15 
OUTP  16 
OUTP  17 
OUTP  18 
OUTP  19 
OUTP  20 


Figure  111,  Subroutine  OUTP  Program  Listing 


SUBROUTINE  POLESINx.A.MX.RP.Ml 
DIMENSION  ACHX. n .SBC  I) 

CALL  LESSEN ( NX  «  4 • Mx ) 

CALL  OPCALL (MX.A.PP.M.HXI 
WPITf  (9. 6.(07) 

6087  rO«M4T  ( 1HI/7X.1  J  HE  I  f.EUV  4LUE  S/ I  ?*•  4*PE  »L  •  9*  *  PH  I  <Af,  I  N  ARY 
1NG  PAT I0.5X«9MrPE0UENCT//) 

MM*M/  "* 

DO  60~<3 
l*2*K-l 

OMEGAsSQRT (PP ( 1 1 «Po ( 1 1 «PP ( I  • 1 1 #PP (!♦!>) 

ir(A8r(PPt  i»i  n  .r.T..ooooo3on  go  ro  l 

W9ITF(9. 60841  PP(I) 

GO  TO  6083 

1  DELTA=PP< II /OMEGA 

WPJTE  <9.65841  PP  (It*  PO  (  I  ♦  1  I  <  Dr'L  T  A.  0**f  GA 
6183  CONTINUE 
6084  FOPMAT (RX.4riS.pl 
PETOR* 

END 


POLES  2 
POLES  3 
POLES  4 
POLES  5 
POLES  6 
.8X.13HDA1PIP0LES  7 
POLES  8 
POLES  9 
POLES  10 
POLES  11 
POLES  12 
POLES  13 
POLES  U 
POLES  IS 
POLES  16 
POLES  17 
POLES  18 
POLES  19 
POLES  20 
POLES  21 


Figure  112.  Subroutine  POLES  Program  Listing 
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SUBROUTINE  HESSFNU'.A.D) 

DIMENSION  A( I) 

INTEGER  P.PM.»*«0 
10«0» I 

KX*NN-!D-II)«1 

PM«1 

PX*N 

DO  70  K*2»KX.|0 
NK*PX 

pm*pm«o 

PX*PX.O 

JP*PM 

T*0. 

B*0  • 

J*K 

JC«JP 

JK*J 

T*ASS<A<J>  » 

IMT.lE.HI  GO  TO  3* 

JC*JP 

JK*J 

B*T 

IE(J.r»E.N«>  GO  TO  37 

J*J*  I 
JP.JP.O 
GO  TO  H 

IE< JK.EO.K)  00  TO  <.4 
J*  JC 

00  3B  P*PM,PX 

T*A(Pt 

A(P)*itJ> 

A<J1=T 

J»J*1 

P*JK 

DO  39  J*K  *NN«  D 
T*A(J> 

A( J) aA (PI 

A(P>«T 

P*P»D 

IF  <A(*>  .EQ.O. )  GO  TO  70 

JC«PH»D 

JK«K*  I 

T*l ,/t <KI 

B* A  <  J*  t 

1F(B.C0.0.)  GO  TO  AG 

B*B*T 

KM*K*n 

JM*  JK »D 

’  ;r^s«IiHKf^<’ir-«»*APS«A,J-nM  ajm=o. 

A( JM)=AJM 
KM*KM»0 
JM* JM*D 

IF(JM.LE.NN)  GO  TO  GO 
J=JC 

00  60  P=PM,PX 

ap*a  <PI  »B*A  I  J)  _ 

,F(ABS(AP).LE.(.1E-9*ABS(A(0))>)  ap«0. 

A(P)  =S,P 

J*J»1 
JK* JK  ♦  1 
JC* JC*0 


HESSEN  2 
HESSEN  3 
HESSEN  4 
HESSEN  G 
HESSEN  6 
HESSEN  7 
HESSEN  « 
HESSEN  9 
HESSF.N10 
HESSENl  l 
HESSENl? 
HESSENl 3 
HEGSENIa 
hessenig 

HESSEN16 

HESSEN17 

HESSENIG 

HESSEN19 

HESSEN20 

HESSEN21 

HESSEN2? 

HESSEN23 

HESSEN2*. 

HESSEN2G 

HESSEN26 

HESSEN27 

HE5SEN2S 

HESSEN29 

HESSEN30 

HESSEN31 

HESSEN32 

HESSEN33 

HESSEN34 

HE5SEN35 

HESSEN36 

HESSEN37 

HESSEN3B 

HESSEN39 

HESSEN40 

HESSEN41 

HESSEN42 

HESSEN43 

HE5SEN44 

HESSEN45 

HES5EN46 

HESSEN47 

HESSEN4H 

HESSEN49 

HESSEN50 

HESSEN5J 

HESSEN52 

HESSENG3 

HESSEN54 

HEGSEN5S 

HESSEN56 

HESSENG7 

HESSEN58 

HEGSEN59 

HESSEN60 

HESSEN61 

HESSEN62 

HESSEN63 

HESSEN64 


Figure  113.  Subroutine  HESSEN  Program  Listing 
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IFUK.LE.NKI  GO  TO  45  HESSEN65 

70  CONTINUE  MESSEN66 

RETURN  MESSEN67 

ENO  HESSEN6S 


Figure  113.  Subroutine  HESSEN  Program  Listing  (Concluded) 


SUBROUTINE  QRCALL  <0.  A.P.M.NJN) 

urcall  2 

iNTrr.pp  o 

URCALL  3 

DIMENSION  A  <0. | ) tR ( | ) 

QRCALL  4 

N  «  NJN 

QRCALL  5 

ANN  *  1. 

URCALL  6 

ACT  *  .IE-7 

QRCALL  7 

ITER  *  0 

QRCALL  8 

A  i  C 

URCALL  9 

IE  IN. LE. 11  RETURN 

URCALL 1 0 

IEIN.rO.?)  00  TO  ?5 

QRCALL 1 1 

IS 

OEtTA=ACT«AH5(A (N,M) 1 

URCALL 12 

ACC  «  AHS (A (N.N-I I  1 

QRCALL 13 

IEIACr.EO.0.)  GO  TO  16 

QRCALLl* 

IEIACC.GT. DELTA)  f,0  TO  >5 

QRCALL 1 5 

IE(ITrfl,GT.?5)  GO  To  16 

URCALL 16 

IEIANu.GT.ACT)  r-0  TO  2S 

URCALL 17 

16 

H  a  M.? 

URCALL18 

R1M-1)=  AIN.N) 

URCALL19 

RIM)  a  0. 

URCALL20 

17 

K  «  N 1 N-N» 1 

0RCALL21 

ITER  *  ; 

0RCAI.L22 

N  ■  N-| 

URCALL23 

20 

IE(N.r,T.?l  GO  TO  15 

URCALL24 

IEIN.rO.?)  GO  TO  ?S 

QRCALL25 

IEIN.rO.1)  GO  TO  16 

0RCALL26 

R ( M« | i »ACT 

QRCALL27 

RETUR  ! 

QRCALL28 

25 

R  «  ,S» ( AIN-I «N-I ) «AlN.N> t 

QRCALL2R 

DANbAHSIAIN.NI-AIN-I .N-l) > 

ORCALL30 

SAN*AHS( AIN.N) ) •ARs(AlN-I.N-l) ) 

ORCALL31 

IEIDAN.LE.ACT*SAN)  dan«o. 

ORCALL32 

DAN*OAN»DAN«.?S 

QRCALL33 

C*A IN .N-l 1 »A IN- 1 iNl 

QRCALL3*. 

T*OAN»C 

URCALL35 

IE  1  (r.LT.O.)  .AND.  (ARSITl  .  LK  .  ACT  »0A  1 )  )  T»li. 

URCALL36 

IEIABsIT) .LE.ACTI  T«0. 

QRCALL37 

C  ■  SORT  CABSIT) ) 

QRCALL38 

IEIN.NE.2I  GO  TO  SO 

0RCALL39 

26 

IE1T.GE.0.)  GO  TO  3|) 

OHCALL40 

M  «  M  •  R 

ORCALL41 

RIM-ll  a  '1 

0RCALL42 

RIM)  =  C 

0RCALL43 

27 

N  ■  N-l 

QRCALL44 

GO  TO  17 

URCALL45 

30 

M  a  M«? 

0RCALL46 

RIM-1)  *  B*C 

0RCALL47 

RIM)  s  0. 

QBCALL48 

K  m  NTN-N* l 

URCALL49 

M  a  M*? 

URCALLSO 

RIM-1)  b  B-C 

QRCALLSl 

RIM)  a  0. 

URCALLS2 

GO  TO  ?7 

ORCALL53 

50 

iriT.GE.0a>  GO  TO  60 

0RCALL54 

R <M*5 >  b  R 

QRCALLS5 

RIM»6)  *  C 

0RCALL56 

R IM*7 )  «  H 

ORCALL57 

R (M»8)  «  -C 

URCALLS8 

GO  TO  70 

QRCALLS9 

60 

X  b  B*C 

URCALL60 

V  b  R-C 

QRCALL61 

R (M»6)  *  0. 

0RCALL62 

R (M»8)  b  o. 

URCALL63 

R(M*5)  «  X 

0RCALL64 

Figure  114.  Subroutine  QR CALL  Program  Listing 
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70 


eo 


10* 


R (M»7)  *  V  „  . 

If  (ABS»X).GT.A9S(Y))  GO  TO  70 

R(M«5)  *  7 

R(M»7)  ■  * 

if ( I Tf P.LE ,0)  50  TO  130 

*  ■  arS  (R  (M»S)  -B  (M.  l  *  *  *ABS  (R  -R  1 

ACC  «  ABSIR(M»S))»ABS(B(M.1>  »  ♦  ABS  (R  (M*M  )  ♦  ABS  (0  (M.2M 

Ice  riBslR(M.7M.AflStB(HOH*AHS<«<M.8*MA3S(R(H.*n 

If (ACC.GT.l.)  T*y/ACC 
ACC  «  ABS(A(N-l«N-7»  ) 

OELTA»AMAAHOELTA.(ACT*ARS«AlN!-i.N-ln>> 

If (ACC. GT. DELTA)  GO  TO  90 

If (ITfB.GT.25)  GO  TO  ?6 

If ((X.LE.ACT).AND.(V.LE.ACTU  GO  TO  26 

ir tlTrB.GT.200)  GO  TO  200 
If ( < X ,GT . .5  ) .AND. ( Y.GT. .5  >>  GO  TO  130 

K  ■  M.5 

If (Y.GT. .5  )  GO  TO  120 

If  ( A.GT . .5  )  GO  TO  no 

RHO  ■  R(M*5)»B(M*7)-B(M*6l»B(«*fll 
SIGMA  ■  B(M»5)*R(M»7) 

CONTINUE 
ANN  «  A (N.N) 

CALL  OR(N.A.BHO. SIGMA. D. DELTA) 

B  »  A9S (A (N.N) ) 

ANN  a  ABS(AMN-A)N.N) ) 

IflB.GT.AC7)  ANN  *  ANN/8 
ITER  *  ITEB«I 
DO  105  I  *  I  * A 
K  ■  M«  I 

105  R(K1  *  B(K.A) 

GO  TO  15 
HO  K  ■  N.7 
120  RHO  »  R(K)*R»K> 

SIGMA  *  R(K)*R(K> 

GO  TO  100 
130  RHO  ■  0. 

SIGMAaO. 

GO  TO  100 
200  CONTINUE 

700  rORMATUHlt^SHALL  EIGENVALUES  NOT  fOUND) 

return 

END 


UR CALL65 

0RCALL66 

QRCALLG7 

(JRCALLGB 

URCALL69 

URCALL70 

QRCALL71 

QRCALL72 

QRCALL73 

0RCALL74 

ORCALL75 

ORCALL76 

QRCALL77 

ORCALL78 

ORCALL79 

URCALL80 

ORCALLS1 

QRCALLB2 

ORC ALLS J 

QRCALL84 

URCALL85 

QRCALL86 

URCALL07 

QRCALLB9 

QRCALL89 

ORCALL90 

QRCALL91 

QRCALL92 

QRCALL93 

0RCALL94 

0RCALL95 

0RCALL9G 

QRCALL97 

0RCALL96 

URCALL99 

QRCAL100 

QRCAL101 

ORCAL102 

QRCAL103 

QRCAL104 

QRCAL105 

URCAL106 

QRCAL107 

ORCAL108 

ORCAL109 

URCAL110 


Figure  114.  Subroutine  QRCALL  Program  Listing  (Concluded) 
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SUBROUTINE  OR  IN. A . PHO . S IGMA .D.DELT A > 

QR 

2 

DIMENSION  All) 

OR 

3 

REAL  "  A*3*5  A 

OR 

4 

INTEGER  P.O.D 

OR 

5 

EQUI V 1LENCE  (P.Q) 

OR 

6 

ID  =  0*1 

OR 

7 

NO  =  ! 0* ( N- 1 ) ♦  l 

OR 

8 

N1  =  10-ID 

OR 

9 

N?  =  :  l  - 1  f) 

OR 

10 

N3  =  -'5-10 

QR 

11 

IE(n.gT.3>  GO  TO  5 

OR 

12 

If(N.l  E.2)  RETUPN 

QR 

13 

2 

0  =  1 

OR 

14 

GO  TO  35 

QR 

15 

5 

I  =  N">»  1 

OR 

16 

7 

iriABKAdll  .LT.DFi.TA*  GO  To  10 

OR 

17 

IEIJ.LE.21  go  to  ? 

QR 

18 

I  =  I-  ID 

QR 

19 

GO  TO  7 

QR 

20 

10 

0  =  1*0 

OR 

21 

AID  =  *>. 

QR 

22 

35 

I  =  P 

QR 

23 

n  =  o 

QR 

24 

10  =  !-£> 

QR 

25 

11  =  T*D 

OR 

26 

12  =  Tl*D 

QR 

27 

r»l  S  Mn*(A(|)-SlGMA)*A(Ill*A(I*l)*RHO 

QR 

28 

G2  =  a(I*H«(A<I1»A(I1*1>-SI6MA> 

OR 

29 

G3  *  A ( 1  ♦ 1 1  *A ( 1 1 ♦?> 

QR 

30 

A(I*2i  =  0. 

QR 

31 

GO  TO  45 

QR 

32 

40 

Gl  =  A (10) 

OR 

33 

G2  =  A (10*1) 

QR 

34 

G3  = 

QR 

35 

10  =  IO*D 

QR 

36 

IEII.LE.N2)  G3  =  AdO*?l 

OR 

37 

45 

KAPPA  =  SORT (Gl *G1 *G2*G?*G3®G3 ' 

QR 

38 

IE(G1.LT.0.)  KAPPA  =  -KAPDA 

QR 

39 

- 

IE(KAOPA.NE.O.)  GO  TO  47 

OR 

40 

ALPHA  =  ?. 

QR 

41 

PI  =  . 

OR 

42 

p2  =  . 

QR 

43 

GO  TO  48 

OR 

44 

47 

ALPHA  =  l.*Gl/KAPPA 

QR 

45 

PI  =  1 ./(Gl *KAPPA) 

QR 

46 

P?  =  PI *G3 

QR 

47 

PI  =  o 1*G2 

QR 

48 

4B 

IE(I..-O.Q)  GO  TO  40 

QR 

49 

A( 10)  =  -A( 10) 

QR 

50 

IE(I.jE.P>  A(I0)  =  -KAPPA 

QR 

51 

49 

J  =  I-D 

QR 

52 

50 

J  =  J*D 

QR 

53 

IE  ( J.r,f  .NO )  GO  TO  81 

OR 

54 

FTA  =  A ( J ) *P 1* A ( J* 1 1 

QR 

55 

IEd.LF.N2)  ETA  =  FTA*P?*A< J*?) 

QR 

56 

eta  =  AlPHA*ETA 

QR 

57 

A  ( J )  =  A(J)-ETA 

QR 

58 

A  ( J* 1 )  =  A ( J* 1 ) -P 1 *ET  A 

OR 

59 

IEd.LE.N2)  A  (  J  ♦  2 )  =  a(.J*?)-P?*ETA 

QR 

60 

GO  TO  50 

OR 

61 

51 

j  =  n-i 

QR 

62 

JINX  =  MIN(i  (  I*P.N1  ♦  1 ) 

QR 

63 

60 

J  =  J*1 

QR 

64 

Figure  115.  Subroutine  QR  Progrem  Listing 
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6*5 


K  *  j.n 

ETA  a  A ( J 1 *P1«A<K) 

L  «  K  *0 

irn.iF.N2t  ETA  *  cTA.P?*A(LI 
FT  A  =  FTA«ALPHA 
A ( Jt  a  A<J)-ETA 
AIK)  r  AIK)-P1*FTA 
IF  U.'.E.N?)  AIL)  =  A  (L  )  ~P?*fT  A 
IFIJ.lT.J1NX)  GO  TO  60 
IF(l.r-T.N3)  GO  TO  65 
ETA  *  ALPHA*P?*A(1?«3> 

A(I*3t  *  -ETA 
Atll.-U  a  -PI *ET A 
A  (I?*-1 )  *  AII?Ot-P?#FTA 
Ir 1 1  .OE.NI )  HFTOHM 
ID  «  t  *1 

I  «  ll*l 

II  »  '2*1 

12  a  ??.10 

GO  TO  A. 

END 


QR  6S 

OB  66 

OR  67 

OR  68 

OR  69 

QR  70 

OR  71 

OR  72 

OR  73 

OR  7a 

QR  75 

OR  76 

OR  77 

OR  78 

OR  79 

QR  80 

OR  61 

QR  82 

OR  63 

OR  8a 

OR  85 


Figure  115.  Subroutine  QR  Program  Listing  (Concluded) 
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norm  noon  non 


SUflROlTINE  INPTM(A.  II.  J.j,  |R| 

PUBPO-;f  -  TO  READ  riON7£RO  ELEMENTS  Or  «  M  ATP  I A  FROM  TICE  |R 
*NAL  ISIS  -AT  KON«P  /  J  X  vAHESM  -  T NF  rtONE  YmfLL  INC 
DATE  -'PITTEM  -  |97c 


ARGUM-NTS 

LIST 

A 

INPUT 

MATRTA  OAlA 

11 

input 

MAXIMUM  NO  OF  ROMS 

JJ 

input 

MAXIMUM  NO  Or  COLUMNS 

IR 

INPUT 

FILE  NO  FOP  RF  Art  TNG  MATRIX  DATA 

DIMENSION  A(II.JJ) , IDI5> .JD(5i.YD<5| 

2  FORMAT  I5(?12«f 12,5) I 

1  READ  < TR«2 ) (ID(L>»jn(L)»YD(Lt*Lal»5) 
IE (EO* ( IRI)10*4 
6  CONTI-iuE 

IE ( IO( I ) ) 3« 10<3 

3  DO  S  i  *|.5 

IE  (|:i(UH,l,4 
*  I«I0O> 

5  A  <  I « J »  = YD (L  > 

RO  TO  1 
10  CONTI Mt )E 
RETURN 
ENO 


INPTM  2 
INPTM  3 
INPTM  4 
INPTM  5 
INPTM  f, 
INPTM  7 
INPTM  rt 
INPTM  9 
INPTM  10 
INPTM  11 
INPTM  12 
INPTM  13 
INPTM  14 
INPTM  15 
INPTM  1(S 
INPTM  17 
INPTM  1H 
INPTM  19 
INPTM  20 
INPTM  21 
INPTM  22 
INPTM  23 
INPTM  2* 
INPTM  25 
INPTM  26 
INPTM  27 
INPTM  28 


ooooonooooooo 


SUOPC  iT  | ME  * T t-  (  ft  .  II-  'Ih  4 .  •  .c  •' .  Jw  ) 

O1IOO0T  -  TO  ••#->»  T c-  fC'  Wfl  cl  0r  A  ■>* a T ^  1  *  ON  A  FILE 

AMAH  -IS  -  A  F  *OM.\P  /  J  <  «A«F;>H  -  THF  HOME  V«iFLL  INC 
OATF  RITTl'i  - 

APOUM'NTS  LIST 


\ 

INPUT 

MATRIX  UAIA 

NR 

I  ,'PllT 

NO  Op  ROWS 

NC 

!..pur 

MU  OF  TOLUVNS 

NH 

Tr;“u.T 

«AX1  >U".  NO  OF  ROWS 

NC  ' 

I  .put 

'* AX  1  MO  OF  COLUMNS 

JW 

INPUT 

FILE  ‘Vi  Fur  WRITING  DATA 

01  MEM-  TON  A  (NSiA.MC  4)  .UCARO ( ■»<•> 

OTMFN  TOM  40(h)  ,tO(S>  ..JOIN) 

IMTFO-K  FCAPO 
IF  ( MS  .  Ft) ,  100  to  I 
IF(MC.F0,^)r,0  TO  1 
IMF 

DO  Bo  <= l »NW 
DO  M(-  m=1,nC 

I F  ( A  (  «  .*)  ,t'5,i).  )0O  TO  «.j 

1 1  I  =  I  M  ♦  l 

A0< I  I T ) :A (K .M) 

T  n  < 1 1 1 >  =k 

J0(  I  I  I  ) =M 

Ir  (  II  '  .LT.StOO  TO  a.* 

WR  ITE  <  H«6  » >  (  I'XL  )  •  JD  <L)  «  AD  M.  t  «L=  1  «  1 1  1 1 
60  FOPVA'  (5<i?lP.t  l?.Fn 
It  I*f; 

BO  CONTI  HE 

IF <11*. EG.  )C,0  TO  1  vj 

WRITE  ( JW*6'.  )  Cl  OIL  )  .  JR  (L  )  •  40  ID  *1  =  1  .  II I ) 
100  CONTI  •"£ 

I  BL  AN-f  =AH 
00  11  1  =  1 .P  • 

110  BCACftl  n  =IML4M< 

WSITF  I  JW.l  ?(  )  (PC Apr  (  I )  .  1  =  1  ,•>  )» 

1?0  FOkMA  r  |^.,AA) 

RE  T(JP  m 
FND 


WTP 

wTP 

WTP 

WTP 

wTP 

wTP 

WTP 

WTP 

WTP 

wTP 

wTP 

wTP 

WTP 

WTP 

WTP 

WTP 

WTP 

WTP 

WTP 

WTP 

WTP 

WTP 

WTP 

wTP 

WTP 

WTP 

WTP 

WTP 

WTP 

wTP 

WTP 

WTP 

WTP 

wTP 

wTP 

WTP 

WTP 

WTP 

WTP 

WTP 

WTP 

WTP 


Figure  117.  Subroutine  WTP  Program  Listing 
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&  til  J>uru»-c<oa)-^o  <ji 


FACTION  W/lNC'l 
X=N 

IF  (N  .Ei).  <■)  r,n  T ft 
I  St  FO  =  33973ft"»R«R’ 
Ksise^n 
TfMsS'lNF  (*) 

*=o. 

|  TFM  =  O.w 

DO  2  *  =  1.1? 

?  tem=tfm«ranf (X I 
TFH  =  TEH  -  ft. 'I 
GRAN  -  T£M 
RFTUR- 
ENO 


GRAN  2 
ORAN  3 
ORAN  4 
GRAN  5 
GRAN  ft 
GRAN  7 
GRAN  A 
gRAN  R 
GRAN  10 
GRAN  1 1 
GRAN  12 
ORAN  13 
GRAN  1 4 
GRAN  IS 


Figure  118.  Subroutine  GRAN  Program  Listing 
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Figure  119.  Program  PRECOM  Flow  Chart 


APPENDIX 


PRECOMPILER  PROGRAM  FOR  KONPACT-1 


The  precompiler  program  performs  the  task  of  writing  the  MAIN  program 
for  KONPACT-1.  A  brief  description  of  the  precompiler  program  is 
presented  in  this  section. 

The  precompiler  program  reads  the  system  dimensions  and  the  KONPACT-1 
program  names  and  computes  the  maximum  sizes  of  the  scratch  arrays. 

It  writes  the  MAIN  program  for  KONPACT-1  on  file  COMPIL.  The  flow 
chart  is  given  in  Figure  119  and  the  program  listing  is  given  in  Figure  120. 


non  non  ooo  ooo  o  oo  o  ooo  oo 


PROGRAM  PRECOM ( INPUT .OUTPUT .COMP. TAPE5a INPUT .  TAPE 9a0UT PUT 
1 1 T AP£6«C0mPI 

analysis  •  «  r  KOMAR  /  J  K  MAHISH  •  THE  mOneTkELL  INC 
PURPOSE  •  TO  RE AO  THE  PROGRAMS  USED  ANO  ThE  MAXIMUM  SYSTEM 
DIMENSIONS  and  SET  up  The  main  PROGRAM  FOR  KONPACTmI  PROGRAMS 
DATE  liHITTEN  .  OECCMHER  1975 

DIMENSION  CARO ( 20 ) 

OAT A  MNAM£  t HNRMC  tHNUME • HN VM£/4HNXMb  »4HNRMa • AHNUPPi AHNTMa/ 

OaTA  MMSrtE,MMTHE*HCH«HKR8«/*HMSH»*AHMTH««2HC  • AHK  / 

DATA  HK 1MH«HK2RBiHK]H0«HK4HR/4MK1  t4HK2  t AHK  3  1 4MK4  / 

MSIFaO  t  M$2Fao  i  aSSFafl  t  mSAFbo  S  MSSFaO 

INITIAL t/E  MAXIMUM  system  oimensIOns 

NXHbo  %  NHHao  t  NUMaO  %  NVMap  %  MSB»0  S  MTB«0 

READ  THE  PROGRAMS  USED  AMO  THE  MAXIMUM  SYSTEM  DIMENSIONS 

100  CONTINUE 

RE  *0 (S« 1201  CAPO 
120  FORMAT (20A*J 

IF (EOF (9) 1220*140 
140  CONTINUE 

oecooE(4«iAOfCARonncc«ouMMv 
160  FORMAT ( A2t A?) 

IE (CC.EO.HCM)OO  TO  100 

SET  THE  PPOGRAM  FLAGS 

C00EbC4R0I2) 

IE (COOE.EO.MKlHRtMSIFal 
IE(C00E.EU.MK|H8Jf»0  TO  100 

I F ( COQE»EQ •HK2R8 ) MS2F  a l 

IF (C0DE.CO.MF28RJG0  10  100 
If «COOE.EO,hk3M8)mS3EbI 
IF (CODE (EU(Mk TPR) GO  TO  100 
IE  (Cl*0E.E0.MK4HH)MS4FaI 
IF(COOE.EQ.MK4HR)GO  TO  100 
IE  (COOF.EU.hmbrJMSSFbI 
IE (CODE ,E0,MKHHR|G0  TO  100 

SET  THE  MAXIMUM  STSTCm  DIMENSIONS 

COOEaCAROU) 

OECOOE (A. 1 80, CARO (21 (MAX .DUMMY 
1R0  FORMAT  f I  3  t  A  1 ) 

IF (CODE .EG.MNXmCINXMbmai 
IE (COOE.EO.mNXmEIGO  TO  IOC 
IE (COOE.EU.HNHmEINRMbmAX 
IF(COOE.EQ.MNRmE)GO  TO  100 
IE  (COOE.EO.HNUMfJNUMBMA* 

IF  <COOEtEOaMNUME)GO  TO  100 
IF (COOE.f O.MNYME JNYMaMAX 
IF (COOE.EO.mnymE)GO  TO  100 
If (C00E.EU.MMS8E)MS8aMAX 
IE (COOE .f O.mmSHE > GO  TO  IOC 
IF (COOE.f O.MMTMFTMTRaMAX 
IE (COOE.EO.mmTpE)GO  TO  100 

IE  OATA  CARO  IS  IN  ERROR  PRINT  ERROR  MESSEGE 


PRECOM  2 

PRECOM  3 

PRECOM  4 

PRECOM  S 

PRECOM  6 

PRECOM  7 

PRECOM  B 

PRECOM  9 

PRECOM 10 

PRECOMU 

PREC0M12 

PRECOMI3 

PRECOM 1 4 

PRECOM1S 

PREC0M16 

PRECOM1? 

PRECOMU 

PRECOM 19 

PRECOM20 

PREC0M21 

PREC0M22 

PRECOM23 

PPEC0M24 

PRECOM2S 

PPEC0M26 

PRICOM27 

PRECOMfa 

PREC0M29 

PPECOM30 

PRECOM31 

PRECOM32 

PRECOM33 

PPECOM34 

PPECOM35 

PRECOM36 

PRECOM37 

PRECOM3R 

PRECOMJ9 

PREC0M40 

PREC0M4I 

PREC0M42 

PREC0MA3 

PREC0M4A 

PHEC0M45 

PREC0MA6 

PREC0MA7 

PREC0M4B 

PREC0MA9 

PRCCOM50 

PPECOMSI 

PPECOM52 

PRECOMS3 

PREC0MS4 

PREC0M55 

PPEC0MS6 

PREC0MS7 

PREC0MS8 

PRECOM59 

PRECOM60 

PRCC0M61 

PREC0M62 

PRECOM63 

PREC0M6A 


Figure  120.  Program  PRECOM  Program  Listing 


•Hiu  (9.?nc>CAO0 

200  fO»K*T(lHll//,U,2SH£K«t)h  |M  PRECOMPILER  OATa*//*IX 
1»1HHL*ST  PEAU  ■*$•//•  1Xi20M) 

STOP  111 

c 

C  CALCULATE  DIMENSIONS  «HICH  ARE  USEFUL  TO  COMPUTE 
C  MAXIMUM  SCRATCH  APHAY  OIMtMSIONS  REQUIRED 

c 

220  COMIMiE 

NXPMbnXM«NPH 

NXUMaNXHtNtiM 

NYUMbNVM.MJM 

NUUmbNPmaNOM 

NAHUMaNXM*N»UM 

NXPYMBNXPmvNYM 

M.OPOalT  t  HPSHa 1 

N[)H1  JaMAXO  (HaOMO»T.XM,APM,MHSH) 

NOmI2»maxoinaum,npm) 

NOM?1bMAX[i  (NMM,NXMth,PSM) 

NDM22BMAX0 (N am* HUH) 

MMbMAXO (NIJM«NPM) 

c 

C  CALCULATE  maximum  DIMENSIONS  FOP  SCRATCH  amPay  SI 
C  TO  USE  THE  VARIOUS  KONPACT-I  PROGRAMS 

c 

MSI Ual*3*NXM«2a (NVUM) ♦NXPYM* ( 2«NAH*NYUM) «NPm 
MSI  12*1 «HSm* ( I A*NXHUH* i) 

Msn«MAxo(Hsiu»Msn2) 

MS121aMSlU*HTH«IS 
mS1?2«mS1 12 

mS12«maxo(hs121»mS1221 

MSI  31 "MSI 11VMSH* (3*NXHUM*NXM> *NBMA(MSH*1  I 
MS132aHS112 

MS13aMAX0<MS131.MS132l 

MSlAaMSll 

MSlSal*NXMB (NffUMtNNH) ♦NRM# ( 2»NPM* JaNtJM ) « 3#NARUH 
1  «NUM 1 1 »N0M 1 2»NDM2 1 »NOM22*NUM 

c 

C  CALCULATE  MAXIMUM  DIMENSIONS  FOR  SCRATCH  ARRAY  S2 
C  TO  USE  THE  VARIOUS  AONPACT-l  PROGRAMS 

c 

mS2U>1*nxrmbnxum 

MS212-10000 

mS21»mAX0 (MS21 1 «mS212) 

MS22taMS211 

MS222»13*NRM#NUMAMT«* < AB*mTB*NRUM) 
mS22bmaxo(HS221»mS222) 

MS231«MS21 1 

MS232»1»NRM«NUM*MSBAMM« (»<SB*MMaNRUM)  *MSb«NAHM»NXUM 
mS23«mAX0 (MS231 *mS23?) 

MS2ABMS2H 

MS25a 1 ♦ ( NXRM*NRM ) aNXUM 
C 

C  CALCULATE  MAXIMUM  DIMENSIONS  FOR  SCRATCH  ARRAY  S3 
C  TO  USE  THE  VARIOUS  AONPACT-1  PROGRAMS 
C 

MS31»1*1?»NXHUM 

MS32bMS31 

MS331-MS31 

MS332al ♦A*MSH*MM# (2BMM*NRUM) BMS0 
MS33«MAX0(MS331iMS332) 

MS3AaMS3l 

MSJS«2»MS31 

C 

C  IF  NO  SPECIFIC  PROGRAMS  ARC  READ  SET  ALL  PROORAM  FLAGS  TO  I 
C 


PRECOMfc* 

PREC0M66 

PRECOMAT 

PREC0M68 

PREC0MA9 

PRECOMTO 

PPECOMTI 

PPEC0MT2 

PPICOMT3 

PRECOM7* 

PPECOMTS 

PRCC0MT6 

PPECOMTT 

PREC0MT8 

PPECOMT9 

PRECOMBO 

PRECOMBl 

PREC0M82 

PRECOMB3 

PPECOMB* 

PRECOM85 

PREC0MB6 

RPCCOM87 

PRECOMflB 

PRCC0M89 

PRECOM90 

PRCC0M91 

RRCCOM92 

RRECOM93 

PRICOM9A 

PREC0M9S 

PREC0M9A 

PREC0M9T 

PREC0M9B 

PPEC0M99 

PRECOIOO 

PREC0101 

PRECOI02 

PREC0103 

PREC010* 

PRECOIOS 

PRECOIOS 

PRECOIOT 

PRECOIOS 

PREC01Q9 

PRECO110 

PRECOI1I 

PRECOH2 

PREC0113 

RRECOl 14 

PREC011S 

RRECOl U 

PRECOHT 

RRECOl IB 

PRECOl 19 

PREC0120 

PREC0121 

PREC0122 

PREC0123 

PRCC012A 

PREC012S 

PREC0126 

PRECOl 27 

PREC012B 

PREC0129 

PRECOl 30 


Figure  120.  Program  PRECOM  Program  Listing  (Continued) 
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c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


ir  t (Msir.Nf ,0) .or, (HS2f.Ne.oi .or. (HS3F.Ne.ot .or. imsaf.ne.o) .or. 
1 (HSSF.NC.Ot  too  TO  22} 

NS1F ■  l  S  HS2F*1  ft  MS3F»1  ft  «S*F ■  1  S  MSSFal 

CALCULATE  maximum  SCRATCH  array  DIMENSIONS  necoeo 

22)  CONTINUE 

IF (M$}F,e0.1)GC  TO  222 
MS  I ) • 1  S  MS21*l  *  MSJ1»1 
222  CONTINUE 

IF (MS2T  ,tO, 1)00  TO  224 
MS12«1  *  MS22«l  ft  MSJ2»1 
224  CONTINUE 

IF  (MS3F.EU.DOO  TO  226 
MSI 3»l  ft  mS23"1  ft  M$33«l 
226  CONTINUE 

|F(MS4F.EU.|)G0  TO  22 8 
MS14«1  ft  MS2AS1  ft  MS34B1 

22«  continue 

IF(MS%F,ta,ltOO  TO  230 
MSISa)  ft  MS£5«I  ft  MS3Sal 
230  CONTINUE 

MS 1 aMAXO (MS 1 1 »MS 1 2 .MS 1 3 » MS 1 4 , MS  IS) 

MS2aMA*0(MS21 |MS2?,MS?3»HS24,MS25) 
MS3aHAA0(MS31.MS32.MS33.MS34.MS3St 
MS4a  1 

COMPUTE  MEMORY  REOUIHEO  FOR  SCRATCH  ARRAYS 
MSTanSl «mS2«rs3*mS4 

SET  THE  MEMORY  REOUIREO  FOR  THE  PROGRAM  CODE 
MPTaSOOOO 

COMPUTE  TOTAL  MEMORY  REOUIREO  TO  EXECUTE  AONPACTa)  PROGRAM  AND 
PRINT  The  FIELP  LENGTH  REQUIRED  In  octal  RASE 

mT  bnST  a MR T 
•RITE (9.240) 

240  FORMAT (////I 
aPITf (9.260) 

260  FORMAT (/ilO>.S6(lHa)  ) 

•  RITE  (9*280)MT 

280  FORMAT </i10**S0hFIELO  LENGTH  REOUIREO  FOR  EXECUTING  KONPACT»l  • 
1  *06) 

aHlTt(9.260) 

•RITE  MAIN  PROGRAM  for  KONPACT* l  PROGRAM  ON  COMP  FILE 
•RITE  (6*300) 

300  FORMAT (3BM  PROGRAM  MAIN (8INPUT *  INPUT *n0ATA* 

I *40mODaTa. OUTPUT fTAPESafl INPUT* 

2*/«36H  }TAPE6a InPUT  *  TAPE TaNDATA* TAPES* 

3*40H«UATA.TARE9aOUTPUT*VOATA, 

4*/*36H  2T AREAavuAT A .SCRTCH. TAPE  JaSCRTCM) ) 

•RITE (6*320) 

320  FORMA M39HC  ANALYSIS  -  A  F  KONAR  /  J  F  MAhESM 
1 • 4 Oh  -  the  HONEYaELL  INC 

2*/*44HC  PURPOSE  •  TO  SET  UP  maximum  DIMENSIONS) 

•R1TE(6*330) 

330  format (Jam  Common  /otm/  MS) .ms2*MS3*mS4 

I *26h»maxn.maxm,nxm*nrm,num*nym»/ 

2»42h  1*mm*MP*mo,mr,msR*NR«ms*mn*mtr.msT*mT) 

•RITE (6* 340) MSI *mS2*mS3*m$4 
340  FOHMATI22M  COMMON  /SCI/  SI ( *  IS* )H) */, 


PREC0131 
PREC0132 
PREC0133 
PREC0134 
PREC013S 
PREC0136 
PREC013T 
PREC0138 
PRECOI 39 
PREC0140 
PREC014) 
PREC0142 
PREC0143 
PRCC0144 
PPEC014S 
PREC0146 
PREC0147 
PPCC014H 
PREC0149 
PRECOISO 
PRECOIS1 
PREC01S2 
PREC0153 
PPCC01S4 
PPEC01SS 
PREC01S6 
PREC015T 
PRECOI  St* 
PREC0159 
PREC0160 
RREC0161 
PREC0162 
PREC0163 
PPEC01G4 
PREC016S 
PREC0166 
PREC0I67 
PREC016B 
PREC0169 
PRECOI 70 
PRECOI71 
PREC0172 
PRECOI 73 
PRECOI 74 
PREC017S 
PRECOI 7ft 
PREC0177 
PREC017G 
PRECOI 79 
PRECOISO 
PREC0181 
PREC0182 
PREC01S3 
PREC0I84 
PRECOI 8S 
PRECOI 86 
PREC0187 
PRECOISO 
PREC0189 
PRECOI90 
PPEC0191 
PREC0192 
PREC0193 
PREC0194 
PPEC019S 
PRECOI 96 
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22  m 

COMMON 

✓SC2/ 

S2I.IS.1h) ./, 

2 

22M 

COMMON 

/SC3/ 

S3I.1S.1M) •/» 

3 

22m 

Common 

/SC4/ 

SAI.I5.1m) ) 

•  Hi TE (6.360) 

360  F0»h*T(38hc  maximum  SCRATCH  ARRAY  DIMENSIONS) 

•  RITE (6.380)*$) >m$2.m$3,mS4 

3H0  FORMAT (6A.4MNS)b  ,15.7m  »  *S2»  ,|$,7M  1  MS3»  .15, TM  »  H$4b  .15) 

•  HITE  (6.400) 

400  fOMM6T(31HC  MAXIMUM  SYSTEM  DIMENSIONS) 

•HITE (6.420)NXM,NPM,NUM.NVM,MSHtMT6 
420  FORMAT (6X.4HNXMB  ,13, TM  %  NRMb  . I  3 »  7H  %  NIIMb  . I 3.TH  $  NTMb 
1.13.7m  »  mshb  ,I3.7m  *  mTMb  .13) 

WHITE (6.440) 

440  F0HM4T I40MC  CALL  «ONPaCT  OHO AN  1 1 1 NO  SUBROUTINE) 

WHITE (6.460) 

460  E0WMATU6H  CALL  KOHfl  1 . / •  25MC  STOP  EXECUTION 

I./.IOm  STOP. /.4m  END) 

STOP 

END 


PREC0197 
PREC0198 
PRCC0199 
PREC0200 
PRFC0201 
PRECO202 
PHEC0203 
PHEC0204 
PHEC020S 
PRCC0206 
PHEC0207 
PHEC0208 
PPEC0209 
PPEC0210 
PHEC021 1 
PHEC0212 
PHEC0213 
P  »EC0214 
PHEC021S 


Figure  120,  Program  PRECOM  Program  Listing  (Concluded) 
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